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SECTION  I 


INTRODUCTION 


This  report  describes  a  breadboard  microcomputer  system  based 
on  an  Intel  SBC  80/20  Single  Board  Computer  (SBC)  which  fulfills  the 
project  demonstration  requirements  for  an  improved  polling 
capability  for  various  satellite  terminal  users.  The  system 
underscores  the  flexibility  and  power  of  microprocessor-based 
hardware  and  software  applications  and  provides  extensive  simulation 
capabilities  related  to  terminal  performance  improvements  for  Air 
Force  Satellite  Communicat ions  (AFSATCOM)  ultra  high  frequency  (UHF) 
satellite  communi cat  ions  in  a  real-time  environment. 

A  preliminary  study  to  investigate  the  attributes  and  growth 
potential  of  the  AFSATCOM  narrowband  (NB)  automatic  Roll-Call 
Polling  mode  was  undertaken  by  The  MITRE  Corporation  for  the  Elec¬ 
tronic  Systems  Division/Air  Force  Systems  Command  (ESD/AFSC) .  The 
purpose  of  this  study  was  to  lay  the  groundwork  for  eventual  imple¬ 
mentation  of  polling  mode  enhancements  through  software-only  changes 
to  the  AFSATCOM  message  processor  unit  (MPU)  subsystem  as  one  means 
of  improving  overall  netting  capabilities.  Subsequent  polling- 
related  studies  involving  advanced  concepts  have  identified  growth 
possibilities  in  the  MPU  subsystem  which  need  software-only  changes. 

As  a  result  of  these  studies,  it  was  concluded  that  many  of 
these  new  polling  capabilities  could  be  demonstrated  easily  and 
economically  through  use  of  currently  available  microcomputer 
techniques  without  the  need  to  modify  any  existing  AFSATCOM  hardware 
or  software.  New  functional  capabilities  could  be  added  by  a 
serially  transparent  microcomputer  using  existing  interfaces 
presently  employed  by  the  AFSATCOM  MPU  subsystem.  A  polling 
improvements  project  was  therefore  undertaken  which  resulted  in  the 
development  and  testing  of  the  microcomputer  system  detailed  in  this 
document . 

To  place  the  polling  improvements  in  perspective,  an  overview 
of  the  AFSATCOM  space  and  terminal  segments  is  presented  in  section 
2.  Section  3  briefly  describes  the  polling  improvements  project  and 
its  initial  test  results.  Section  4  presents  details  of  the  polling 
improvements  actually  implemented  by  using  a  microcomputer  add-on 
enhancement  with  an  AFSATCOM  terminal.  Sections  5  and  6  provide 
details  of  the  microcomputer  hardware  and  software,  respectively, 
for  the  demonstration  system.  Section  7  presents  the  overall 
conclusions  and  recommendations  with  regard  to  AFSATCOM  polling 
enhancements  and  the  follow-on  objectives  and  planning  for 
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subsequent  demonstration  testing.  The  AFSATCOM  Roll-Call  Polling 
mode  is  described  in  appendix  A  and  a  full  source  code  listing  is 
provided  in  appendix  B. 


SECTION  2 


AFSATCOM  SYSTEM  OVERVIEW 


The  AFSATCOM  System  is  designed  to  provide  command,  control, 
and  communications  capability  on  a  worldwide  basis  to  Single 
Integrated  Operations  Plan  (SIOP)  and  other  designated  high  priority 
users  for  emergency  action  message  (EAM)  dissemination,  force 
direction,  force  reportback,  and  Commander-in-Chief  (CINC) 
internetting.  Communications  are  also  provided  for  a  limited  number 
of  non-SIOP  normal  force  elements.  The  AFSATCOM  System  operates  in 
the  225  to  400  MHz  UHF  spectrum  and  uses  the  75  bits-per-second 
(b/s)  teletype  (TTY)  service  with  frequency  shift  keying  (FSK) 
modulation . 

The  AFSATCOM  System,  depicted  in  figure  2-1,  consists  of  a 
space  segment  and  a  terminal  segment.  The  space  segment  includes  a 
communications  capability  designed  into  satellites  such  as  the  Navy 
Fleet  Satellite  Communications  (FLTSATCOM)  satellites  as  well  as  Air 
Force  transponders  carried  "piggy-back"  on  other  vehicles.  The 
terminal  segment  is  composed  of  various  configurations  operationally 
characterized  as  SIOP,  normal  force  (non-SIOP),  and  command.  SIOP 
and  normal  force  terminals  utilize  only  5-kHz  NB  FSK  channels,  while 
command  terminals  also  have  access  to  an  M-ary  FSK  500-kHz  bandwidth 
wideband  spectrum.  To  ensure  orderly  management  of  day-to-day 
operation  and  control,  each  terminal  user  is  part  of  an  overall 
AFSATCOM  System  control  structure. 


2.1  SPACE  SEGMENT 

The  AFSATCOM  space  segment  consists  of  several  types  of 
transponder  carried  on  different  host  satellites.  AFSATCOM 
equipment  is  designed  into  each  of  the  Navy  FLTSATCOM  satellites  in 
geosynchronous  equatorial  orbit  to  provide  overlapping  earth 
coverage  in  all  areas  except  the  polar  regions.  Polar  coverage  is 
provided  by  Satellite  Data  System  (SDS)  satellites  placed  in  highly 
inclined  elliptical  orbits. 

Each  satellite  has  12  NB  channels  for  specific  user  functions. 
The  first  seven  NB  channels  are  used  to  disseminate  the  EAM,  force 
direction,  and  force  reportback  for  SlOP/nuclear-capable  forces. 

The  next  four  NB  channels  are  assigned  to  support  essential 
operations  of  non-SIOP  high  priority  Air  Force  users.  The  twelfth 
NB  channel  is  used  for  system  control  and  is  designed  to  function  as 
the  orderwire  (0W) .  Each  of  the  FLTSATCOM  satellites  also  has  a 


3 


4 


wideband  (WB)  channel.  Accesses  on  the  WB  channel  have  been 
assigned  to  the  National  Command  Authority  (NCA) ,  the  CINCs,  and 
members  of  the  Worldwide  Airborne  Command  Post  (WWABNCP)  fleet  for 
the  CINC  Internet.  SIOP  and  force  terminals  do  not  have  access  to 
the  WB  channel.  Command  post  and  net  control  terminal  elements  have 
the  capability  to  command  the  various  satellite  modes  using  their  OW 
or  NB  channel  equipment. 


2.2  TERMINAL  SEGMENT 

The  AFSATCOM  terminal  segment  consists  of  various  equipment 
configurations  to  meet  SIOP,  normal  force,  and  command  operational 
requirements.  The  terminals  are  airborne  or  ground-based  depending 
on  the  user  application. 

SIOP  terminals  provide  75  b/s  half-duplex  TTY  operation  via  the 
5-kHz  NB  satellite  channels  and  can  be  operated  in  time  division 
multiplex  (TDM)  modes  under  control  of  a  command  post.  The 
input/output  (I/O)  devices  are  a  keyboard,  teleprinter,  and 
appropriate  control/monitor  panels.  Hard  copy  is  available  from 
terminals  using  the  teleprinter.  A  SIOP  synchronizer  provides 
proper  synchronization  during  TDM  operation. 

Normal  force  terminals  (airborne  and  ground)  provide  75  b/s 
half-duplex  TTY  operation  via  a  5-kHz,  fixed  frequency  satellite 
channel.  The  absence  of  a  SIOP  synchronizer  allows  the  normal  force 
terminals  to  operate  only  in  non-TDM  modes. 

Command  post  (CP)  terminals  can  send,  receive,  and  monitor 
messages;  establish  SIOP  timing  synchronization  for  TDM-1  (normal) 
and  TDM-2  (stressed)  modes;  provide  satellite  UHF  commands;  initiate 
EAMs ;  and  operate  in  a  network  control  system  using  an  OW  channel. 
They  can  also  monitor  and  record  all  reportback  data  to  allow 
command  transition.  These  terminals  use  full-duplex  75  b/s  TTY 
operation  on  the  500-kHz  WB  channel,  along  with  half-duplex  and 
full-duplex  75  b/s  TTY  on  the  5-kHz  NB  channels.  Each  CP  terminal 
can  operate  as  either  a  CP  terminal  or  SIOP  force  terminal  when  in  a 
slave  mode.  In  the  slave  mode,  SIOP  timing  synchronization  is 
provided  by  another  CP  terminal.  The  AFSATCOM  Type  12  CP  terminal 
is  described  below  since  it  was  used  for  the  polling  improvement 
demonstration  capability  discussed  later. 


2.3  AFSATCOM  TYPE  12  COMMAND  POST  TERMINAL 


The  AFSATCOM  Type  12  (AN/TSC-88)  CP  terminal  provides  full- 
duplex  record  communications  using  FSK  modulation  at  75  b/s  and  is 
housed  in  an  S-280  shelter  that  can  be  transported  for  rapid  global 
deployment.  The  terminal  consists  of  equipment  installed  in  four 
electrical  equipment  cabinets  and  a  two-position  operator  console, 
all  within  the  shelter.  Steerable  and  fixed  antennas  are  set  up 
outside  the  shelter  when  it  is  operational  and  are  stowed  inside 
during  transport.  Figure  2-2  is  a  functional  block  diagram  of  the 
Type  12  CP  terminal. 

Five  AN/ARC-171  transceivers  (R/Ts)  and  their  associated 
controls,  in  conjunction  with  two  half-duplex  and  one  full-duplex 
narrowband  modems,  and  two  full-duplex  wideband  modems,  provide  five 
transmit  (TX)  and  12  receive  (RX)  communications  channels.  These 
channels  are  identified  as  follows: 

•  NB-1:  a  one  transmit/one  receive  (lxl), 
half-duplex,  NB  (5-kHz)  channel. 

•  NB-2:  a  one  transmit/eight  receive  (1x8), 
full-duplex,  NB  (5-kHz)  channel. 

•  OW :  a  one  transmit/one  receive  (lxl), 
half-duplex,  NB  (5-kHz)  channel. 

•  WB-1:  a  one  transmit/one  receive, 
full-duplex,  WB  (500-kHz)  channel. 

•  WB-2:  a  one  transmit/one  receive, 
full-duplex,  WB  (500-kHz)  channel. 

Several  narrowband  operating  modes  are  available  in  the 
AFSATCOM  System.  During  normal  operation,  messages  on  NB  channels 
one  through  seven  are  received  by  FLTSATCOM  and  SDS  satellite 
packages  on  fixed  uplink  frequencies  and  retransmitted  on  fixed 
downlink  frequencies.  Methods  of  transmission  in  the  normal  mode 
include  random  and  polled  access.  Random  operation  allows  the 
terminal  to  enter  the  net  on  a  random  access  basis  using  an  open 
(not  busy)  select  channel.  Polled  operation  allows  the  Type  12  CP 
terminal  to  query  each  terminal  in  the  net  in  sequence,  with  each 
terminal  responding  automatically  with  a  precomposed  message  when  it 
detects  its  own  unique  code  sequence. 

All  of  the  NB  channels,  including  the  OW  channel,  can  be  used 
for  automatic  polling.  In  the  polling  mode,  the  Type  12  CP  terminal 
sequentially  addresses  poll  inquiry  messages  to  terminals  assigned 
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to  various  poll  groups.  Poll  groups  and  polling  operations  are 
under  the  control  of  software  programs  in  the  terminal  computer,  the 
MPU.  Four  separate  poll  groups  and  up  to  16  members  apiece  are 
allowed  by  the  software.  Each  terminal  to  be  polled  will  precompose 
a  poll  response  message.  When  the  unique  address  of  that  terminal 
is  recognized  in  a  poll  message,  the  precomposed  message  of  up  to  30 
seconds  in  length  is  automatically  transmitted. 

During  periods  of  high  density  traffic,  the  Type  12  terminal 
can  initiate  synchronized  operation  for  SIOP  users  by  implementing  a 
TDM  mode.  In  this  mode,  the  CP  synchronizer  periodically  transmits 
a  sync  message  which  automatically  establishes  a  time  reference 
within  each  SIOP  terminal  in  the  net.  In  the  TDM-1  mode,  each  SIOP 
terminal  is  constrained  to  transmit  a  precomposed  message  within  its 
assigned  time  slot.  Sixty  consecutive  time  slots  constitute  a  frame 
after  which  the  sequence  is  repeated,  with  the  CP  synchronizer 
transmitting  a  new  sync  message  in  the  last  time  slot  of  each  frame. 

During  TDM-1,  only  the  transmit  time  of  each  SIOP  terminal  is 
controlled  by  the  CP  synchronization  message.  During  TDM-2,  both 
the  transmit  time  and  transmit  frequency  of  each  SIOP  terminal  are 
synchronized  by  the  CP  synchronizer.  In  the  TDM-2  mode,  the 
satellite  transponder  is  commanded  into  a  stressed  mode,  which 
causes  the  first  seven  NB  receive  channels  in  the  satellite  to 
frequency  hop  on  a  pseudorandom  basis.  Also  in  the  TDM-2  mode,  each 
SIOP  terminal  is  constrained  to  transmit  in  its  assigned  time  slot 
and  the  transmit  frequency  changes  with  each  time  slot.  The 
transmit  frequency  is  determined  by  the  code-of -the-day  which  is 
programmed  into  each  synchronizer  by  the  operator.  Before  the  net 
can  enter  the  TDM-2  mode,  the  satellite  must  be  commanded  into  the 
stressed  mode. 

Three  modes  of  operation  are  also  provided  on  the  WB  M'ary  FSK 
channels.  These  are:  (1)  random  access  precomposed  message;  (2) 
random  access  manual  message  composition;  and  (3)  full-duplex  relay, 
which  is  also  available  in  NB  random  access  mode. 

During  normal  CP  terminal  operations,  communications  channels 
0W  and  WB-2  are  assigned  to  operate  with  a  fixed  antenna.  The  WB-1, 
NB-1,  and  NB-2  channels  are  assigned  to  operate  with  a  tracking 
antenna.  Antenna  switching  is  provided  to  allow  the  OW  and  WB-1 
channels  to  operate  with  either  antenna. 

Additional  details  pertaining  to  the  AFSATCOM  Type  12  terminal 
can  be  found  in  another  document- 


2.4 


CURRENT  AFSATCOM  POLLING  CAPABILITIES 


The  present  AFSATCOM  polling  capability  is  primarily 
structured  for  automatic  operation  in  the  non-TDM  unencrypted  mode 
over  a  single  5-kHz  NB  channel.  Polling  operations  for  AFSATCOM 
System  control  are  conducted  from  MPU-equipped  terminals  by 
utilizing  a  polling  algorithm  contained  in  the  MPU  software. 
Communications  supervisory  (COMSUP)  commands  input  by  the  terminal 
operator  are  used  either  to  enter  or  delete  poll  addresses  as  well 
as  to  start  polling  operations.  Up  to  64  pollees  may  be  entered 
into  a  poll  net  consisting  of  four  groups  having  16  members, 
maximum,  per  group.  Addresses  for  each  group  member  are  related  to 
others  in  the  same  group,  with  poll  address  recognition  actually 
taking  place  within  the  AFSATCOM  automatic  send-receive  (ASR)  I/O 
hardware.  During  MPU  automatic  polling  operations,  a  non-reportback 
of  a  polled  address  will  cause  a  30-second  fixed  time-out  delay 
within  the  MPU  before  generation  of  the  next  poll  mersage.  Appendix 
A  gives  a  more  complete  description  of  current  AFSATCOM  polling 
operation,  including  polling  message  formats,  address  structure,  and 
poll -related  COMSUP  commands  for  the  MPU. 


2.5  POLLING  LIMITATIONS 

The  following  limitations  of  the  AFSATCOM  polling  mode 
constrain  its  utility  in  an  operational  environment. 


1 .  Small  Network  Size 

A  maximum  of  only  64  pollees  can  be  accommodated  in  the 
existing  MPU  polling  software.  Present  AFSATCOM  require¬ 
ments  forsee  nets  needing  to  accommodate  between  two  and  three 
times  this  number. 

2 .  Inflexible  Addressing  Structure 

The  group  organization  required  in  present  auto  polling 
dictates  that  all  members  of  a  poll  group  have  the  last 
two  of  their  three  address  characters  in  common.  Polling 
always  commences  with  the  lowest  address  of  each  group  of 
16  and  proceeds  in  sequence  toward  the  highest  address 
before  attempting  to  poll  the  next  group.  No  provision 
is  made  for  randomized  poll  addressees  who  are  not  group- 
relat ed  members . 
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I .  No  Prioritization/ Interrupt  ion  Features 

No  provision  is  made  for  real-time  prioritization  of  pollees 
based  on  operational  needs  for  early  or  more  frequent  report- 
back  requirements.  Also,  no  provision  is  made  for  momentary  or 
short-term  interruptions  of  polling  operations  to  accommodate 
higher  priority  traffic  without  complete  repolling  of  all  users. 

4 .  Inefficient  Bookkeeping  Scheme 

Current  polling  operations  dictate  that  all  poll  address 
additions  or  deletions  be  entered  by  COMSUP  command.  This  can 
be  a  time  consuming  process,  especially  since  no  provision  for 
a  truly  automated  MPU  poll  table  generation/display  is  avail¬ 
able  to  the  operator.  Also,  prior  coordination  of  poll  address 
assignments  is  essential  but  is  unwieldly  when  attempted 
in  real-time.  Manual  bookkeeping  procedures  are  thus  mandated 
to  keep  abreast  of  current  poll  net  membership. 

5 .  No  Automated  Handover  Procedures 

No  provision  is  currently  made  for  an  automated  handover 
procedure  to  an  alternate  net  control  station  (NCS)  for 
polling  operations.  All  poll  address  additions/deletions 
must  be  accommodated  by  the  alternate  NCS  on  a  manual 
bas is . 

6 .  No  TDM  Polling  Mode 

Automatic  polling  is  currently  restricted  to  the  non-TDM 
mode.  Although  TDM  poll  response  is  possible  from  a  polled 
I/O,  the  existing  MPU  polling  software  is  not  presently  con¬ 
figured  to  cope  with  the  structural  differences  between  AFSATCOM 
non-TDM  and  TDM  operation  since  automated  TDM  polling  was 
not  originally  conceived  as  a  basic  AFSATCOM  netting  require¬ 
ment  . 

7 .  Single  Channel  Polling  Restriction 

Polling  inquiry  messages  sent  by  the  MPU  during  polling 
operations  are  limited  to  a  single  channel.  Simultaneous, 
independent  polling  on  more  than  one  channel  is  not  currently 
possible  in  a  terminal  equipped  with  a  single  MPU. 

8 .  Unencrypted  Reportback  Limitation 

In  general,  the  30-second  time-out  constraint  during  automatic 
polling  limits  the  length  of  reportback  possible.  In  addition, 
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MPU-equipped  terminals  incur  internal  MPU  delays  such  that  their 
reportback  is  limited  to  130  characters,  maximum.  This  restricts 
the  use  of  the  Auto  Polling  mode  to  unencrypted  operation  with  a 
fixed  upper  limit  on  the  size  of  a  reportback  message;  the  upper 
limit  depends  on  the  type  of  terminal  responding. 

9 .  No-show  Delay  Penalty 

The  present  fixed  30-second  time-out  for  auto-polling  also 
incurs  a  severe  delay  penalty  when  a  no-show  occurs.  A  no- 
show,  or  non-reportback ,  may  occur  for  a  variety  of  reasons 
such  as  failure  to  properly  receive  the  polling  inquiry  message, 
failure  to  be  in  the  I/O  poll  mode,  etc.  Figure  2-3  shows  the 
polling  delay  performance  of  the  present  non-TDM  roll-call 
polling  mode  as  a  function  of  the  number  of  non-reportbacks 
(assuming  a  40-character  reportback  when  one  does  occur)  for  the 
maximum  net  size  of  64  polled  non-MPU  terminals.  The  vertical 
axis  indicates  the  time  to  completion  for  polling  the  entire 
net.  As  fewer  net  members  report  back,  the  time  to  completion 
for  polling  increases  dramatically.  This  is  counter  to  the 
concept  of  maintaining  a  predictable  level  of  AFSATCOM  network 
performance  in  situations  supposedly  under  the  control  of  a  CP 
terminal . 

10.  Error  Detection  and  Correction 


No  automated  procedure  currently  exists  for  repolling  a  net 
member  upon  detection  of  a  character  error  while  in  the  polling 
mode.  The  existing  AFSATCOM  unencrypted  message  structure  pro¬ 
vides  for  odd-parity  character  transmission,  but  this  capability 
has  yet  to  be  fully  exploited. 


SECTION  3 


AFSATCOM  POLLING  IMPROVEMENTS  PROJECT 


Providing  enhanced  polling  capabilities  by  using  AFSATCOM- 
compatible  techniques  to  meet  the  ever  increasing  demands  of  the 
AFSATCOM  System  is  a  primary  concern  because  the  Air  Force  has  an 
extensive  hardware  investment  in  terminal  assets.  Significant 
changes  to  present  hardware  or  software  must  be  evaluated  with 
regard  to  both  operational  and  logistical  effects.  Polling 
improvements  should  also  provide  flexibility  for  a  wide  range  of 
applications  yet  to  be  defined  and  at  the  same  time  address  the 
reportback  needs  of  specific  AFSATCOM  users  with  known  requirements. 


3.1  PROJECT  DESCRIPTION 

A  microcomputer -based  approach  for  demonstrating  various 
improved  AFSATCOM  polling  capabilities,  involving  no  hardware  or 
software  modifications  to  existing  AFSATCOM  equipment,  was  conceived 
by  MITRE  to  be  the  most  cost-effective  means  of  validating  many  of 
the  proposed  concepts.  The  microcomputer  provides  real-time,  on¬ 
line  simulation  of  new  polling  capabilities  while  functionally 
emulating  changes  to  MPU  software.  Making  this  microcomputer 
serially  transparent  to  existing  system  operation  with  no  need  to 
modify  AFSATCOM  assets  is  an  inexpensive  way  to  validate  new  polling 
concepts.  Operational  MPU  software  does  not  need  to  be  modified 
until  after  these  concepts  are  validated  and  user  coordination  is 
achieved  on  a  final  implementation  approach.  Physically,  the 
microcomputer  interfaces  between  the  MPU  and  either  NB-1  or  OW  modem 
in  the  AFSATCOM  Type  12  terminal.  A  project  was  initiated  to 
translate  these  improved  polling  concepts  into  actual  breadboard 
hardware  and  software  suitable  for  demonstration  purposes.  For  this 
purpose,  the  microcomputer  development  facility  based  around  a 
Tektronix  8002A  microprocessor  laboratory  at  MITRE -Bedford  was  used. 

Figure  3-1  describes  the  overall  implementation  approach  for 
the  project.  Because  of  the  small  staff  for  this  undertaking  (two 
part-time  MITRE  technical  staff),  relatively  close  coordination 
between  hardware  and  software  design  efforts  was  possible,  with  the 
result  that  the  project  was  successfully  completed  in  nine  calendar 
months . 
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3.2 


LIMITED  TEST  RESULTS 


Following  completion  of  bench  testing  and  terminal  integra¬ 
tion,  the  microcomputer  system  was  made  available  for  demonstra¬ 
tion  testing.  Technical  compatibility  of  the  improved  polling 
hardware/  software  with  the  AFSATCOM  Type  12  terminal  was 
demonstrated  during  the  initial  tests.  With  the  microcomputer 
installed  in  the  terminal,  both  software  and  hardware  bypasses 
provided  AFSATCOM  system  transparency  for  normal  AFSATCOM  modes. 
After  completion  of  various  terminal  performance  tests,  actual 
network  testing  was  conducted  using  the  FLTSATCOM  satellites.  All 
of  the  significant  performance  improvements  for  polling  (described 
in  detail  in  section  4)  were  also  demonstrated  successfully  in 
conjunction  with  other  cooperative  AFSATCOM  terminals  operating 
through  the  satellite  system.  As  a  result,  the  microcomputer  system 
is  now  considered  available  for  network-wide  tests  on  a  much  larger 
scale,  with  emphasis  on  operational  testing  to  demonstrate  improved 
netting  capabilities  to  potential  users. 
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SECTION  4 


MICROCOMPUTER -BASED  POLLING  ENHANCEMENTS 


Significant  improvements  to  the  present  AFSATCOM  polling  mode 
operation  have  been  achieved  with  the  microcomputer-based  addition 
to  the  AFSATCOM  Type  12  CP  terminal.  These  improvements  have  been 
demonstrated  to  participating  terminal  operators  during  actual  on¬ 
line  demonstrations. 


4.1  MAJOR  POLLING  IMPROVEMENTS 

The  major  polling  improvements  implemented  in  the  AFSATCOM  Type 
12  CP  terminal  are  described  below.  Table  4-1  compares  existing 
AFSATCOM  polling  capabilities  and  the  microcomputer-based 
improvements.  These  improvements  are  a  real-time  simulation  of 
capabilities  possible  with  software-only  improvements  to  the 
AFSATCOM  MPU . 


4.1.1  Group/Non-Group  Polling  and  Prioritization 

The  current  AFSATCOM  System  can  poll  up  to  four  groups  of 
related  net  members  where  each  group  is  defined  as  a  set  of  16 
addresses  and  each  address  in  the  group  has  the  same  last  two  hexa¬ 
decimal  address  characters.  This  group  structure  is  retained  in  the 
improved  polling  software.  In  addition,  a  new  set  of  net  members  is 
permitted  which  may  contain  up  to  80  random  addressees  (equivalent 
to  five  16-member  groups)  independent  of  any  related  group  address 
structure.  This  provides  flexibility  to  organize  and  poll  up  to  a 
maximum  of  144  group  and  non-group  net  members  per  channel. 

During  polling  net  organization  with  the  microcomputer 
software,  the  non-group  members  are  accorded  a  higher  priority  level 
with  respect  to  group-related  members.  Four  priority  levels  of 
polling  net  organization  have  been  chosen  for  demonstration 
purposes:  (1)  priority  check-ins,  (2)  routine  check-ins,  (3)  no¬ 
traffic  check-ins,  and  (4)  group  check-ins. 

During  polling  operations,  the  non-group  related  check-ins  of 
priority  levels  1,  2,  and  3  are  polled  before  the  group-related 
check-ins  of  level  4.  The  NCS  terminal  operator  can  enter  any  of 
these  check-ins  into  the  polling  net  by  COMSUP  command.  A  remote- 
entry  automatic  check-in  for  levels  1,  2,  and  3  is  also  possible. 
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In  addition  to  normal  termination  of  polling,  an  automatic 
repoll  capability  has  been  provided  to  allow  continuous  monitoring 
of  reportback  status  activity.  Also,  an  interrupt-and-resume 
feature  provides  a  standby  mode  for  polling  operations  to 
accommodate  higher  priority  communications  without  the  need  to  re¬ 
initiate  a  repoll  of  net  members  who  have  already  reported  back. 


4.1.2  Remote  Entry  Automatic  Check-in 

The  microcomputer  software  provides  an  automatic  remote  self 
check-in  before  the  start  of  actual  polling  operations.  This  allows 
potential  users  to  become  polling  network  members  without  manual 
intervention  by  the  NCS  terminal  operator.  A  non-group  polling  list 
can  be  rapidly  structured  yet  the  work- load  imposed  on  the  operator 
by  the  large  number  of  possible  random  addressees  is  minimized. 

This  enhancement  also  allows  check-in  table  entry  while  current 
polling  operations  are  in  progress. 

The  NCS  terminal  operator  retains  positive  control  of  all 
check-ins,  including  remote  check-ins  with  the  following  software 
features : 

1.  The  remote  check-in  mode  can  be  enabled  or  disabled 
separately  by  COMSUP  command. 

2.  Check-ins  can  be  verified  using  COMSUP  commands  to  obtain 
hardcopy  poll  table  printouts  of  listed  poll  check-ins 
and  poll  net  members.  (This  includes  both  group  and 
non-group  check-ins.)  Check-in  addition/deletion  can 

be  accommodated  by  COMSUP  command  as  needed. 

3.  Automatic  slot  assignment  and  reportback  prioritization 
(order  of  reportback)  of  poll  net  members  is  done  in  the 
polling  software  before  the  start  of  actual  polling 
operations;  reassignment  of  slots  is  also  possible 

with  a  COMSUP  command. 

4.  An  ALL  CALL  message  initiated  via  COMSUP  command  by  the 
NCS  terminal  operator  informs  all  listed  polling  net 
members  of  their  TDM  slot  assignments  (to  be  dialed 
manually  into  their  respective  AFSATCOM  synchronizers). 
Dial-up  of  respective  slot  assignments  avoids  subsequent 
contention  problems  during  TDM  polling  operations  should 
that  mode  become  active. 


This  enhancement  provides  TDM  auto  polling  in  addition  to  the 
polling  capabilities  available  in  the  non-TDM  mode.  Thus,  AFSATCOM 
TDM-1  and  TDM-2  system  modes  are  made  compatible  with  the  new 
terminal  polling  capabilities.  This  implementation  requires  the 
AFSATCOM  synchronizer  in  the  CP  terminal  to  act  as  a  master  (i.e.,  a 
net  control  element)  during  TDM  polling  operations. 

To  carry  out  auto  polling  in  the  TDM  modes,  the  software 
utilizes  a  tabular  listing  containing  the  addresses  of  all  terminals 
in  the  poll  network  and  their  respective  assigned  reportback  time 
slots.  The  TDM  mode  provides  60  slots  per  frame.  During  actual 
polling  operation  in  the  TDM  mode,  eight  contiguous  slots  containing 
up  to  six  poll  messages  per  slot  at  the  beginning  of  each  AFSATCOM 
frame  are  dedicated  to  sending  polling  messages  from  the  CP  terminal 
to  the  pollees.  Three  unassigned  slots  immediately  following  these 
eight  may  be  used  for  break-in  by  unassigned  or  emergency  users. 

The  48  slots  following  can  then  be  used  for  terminal  reportbacks . 

The  final  slot  in  the  frame,  however,  is  normally  reserved  for 
synchronizat ion  messages.  Because  each  AFSATCOM  terminal  is 
assigned  its  own  unique  address,  several  pollees  can  be  assigned  to 
the  same  reportback  slot.  The  microcomputer  software  presently 
provides  for  polling  a  maximum  of  144  users  in  three  successive 
frames  (with  48  reportbacks  per  frame).  This,  however,  is  not  an 
ultimate  AFSATCOM  System  limitation.  Up  to  three  addressees  may  be 
assigned  to  the  same  slot  under  this  polling  scheme,  but  this  number 
could  be  increased  to  accommodate  additional  users  as  necessary,  if 
more  frames  are  used. 

The  AFSATCOM  TDM  response  of  force  terminals  (or  CP  terminals 
in  the  slave  mode)  limits  polling  responses  by  a  polled  terminal  to 
40  message  characters  during  a  frame.  Also,  TDM  polling  does  not 
have  an  encryption  capability  as  presently  implemented.  However, 
various  priority  traffic  indicators  in  the  poll  response  message 
cause  a  printout  alert  message  at  the  NCS  terminal  for  subsequent 
operator  action.  These  are  described  in  more  detail  below. 


4.1.4  Automatic  Slot  Assignment 

In  conjunction  with  TDM  polling,  the  microcomputer  software 
provides  automatic  slot  assignment  of  listed  poll  net  members  for 
subsequent  TDM  reportback.  Before  actual  start  of  polling,  members 
of  the  network  are  informed  of  their  slot  assignments  by  means  of  an 
ALL  CALL  message  generated  by  the  software.  This  message  also 
indicates  which  users  have  been  accepted  into  the  poll  listing  along 
with  their  priority  order  of  reportback.  The  ALL  CALL  message,  like 


the  slot  assignment  made  during  the  course  of  compiling  the  poll 
table,  is  generated  automatically  by  operator-initiated  COMSUP 
command . 


4.1.5  Encrypted  Non-TDM  Polling 

The  present  AFSATCOM  polling  time-out  limitation  of  30  seconds 
precludes  the  use  of  long  encrypted  reportback  sequences.  The 
microcomputer  system  software,  however,  permits  encrypted  polling 
responses  in  the  non-TDM  mode  of  operation.  The  software  is 
configured  to  recognize  KG-35  encryption  device  message  indicator 
(MI)  sequences  at  the  beginning  of  a  message  and  automatically 
disables  odd-parity  checking  in  the  AFSATCOM  NB  modem  upon 
recognition  of  a  valid  MI  header.  While  message  traffic  is  being 
received  during  polling,  no  message  time-out  occurs  in  order  to 
accommodate  encrypted  sequences  of  long  lengths.  Once  received,  the 
AFSATCOM  MPU  routes  the  incoming  encrypted  reportback  to  a  KG-35 
device  for  eventual  decryption. 


4.1.6  Error  Detection  and  Correction  (EDAC) 

The  present  AFSATCOM  polling  capability  does  not  provide  for 
any  EDAC  during  either  polled  or  non-polled  operations.  The 
microcomputer  software  does  provide  limited  EDAC  during  polling 
through  satellite  downlink  monitoring  of  poll  messages.  Polling 
message  retransmission  then  takes  place  upon  detection  of  error. 

This  technique,  however,  requires  full-duplex  operation 
(simultaneous  transmit  and  receive)  whereas  the  demonstration 
hardware  is  interfaced  with  either  the  AFSATCOM  OW  or  the  lxl  NB 
modem,  both  of  which  are  configured  as  half-duplex  equipment. 

With  a  full-duplex  channel,  after  transmission  of  a  polling 
message  during  non-TDM  mode,  the  microcomputer  compares  the  message 
sent  with  the  one  received  on  the  satellite  downlink  and  causes  a 
retransmission  of  the  same  message  upon  detection  of  any  mismatch. 

A  maximum  of  three  automatic  poll  message  retransmissions  is 
possible  with  the  present  microcomputer  software.  No  EDAC  is 
presently  provided  in  the  TDM  polling  mode  nor  is  EDAC  provided  on 
reportback  responses,  although  no  inherent  limitation  precludes  such 
additional  capability. 
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4.1.7  Variable  Non-Reportback  Time-out 

A  variable  non-reportback  time-out  feature  using  a  COMSUP 
command  with  the  microcomputer  software  provides  the  terminal  NCS 
operator  with  an  added  dimension  for  control.  By  controlling  the 
time-out  delay  from  the  possible  non-reportback  of  polled  terminals, 
the  operator  can  minimize  the  t ime-to-comp let ion  of  polling  the 
overall  network.  The  operator  enters  the  COMSUP  command  with  the 
desired  time-out  duration  expressed  in  seconds.  Note  that  the 
present  AFSATCOM  non-reportback  poll  time-out  is  a  non-changeable  30 
seconds,  whereas  the  microcomputer  software  allows  for  a  1  to  99 
second  range.  Choice  of  the  optimum  delay  depends  on  actual 
satellite  and  AFSATCOM  I/O  device  delays  and  the  polling  strategy  to 
be  employed.  The  ability  to  vary  the  time-out  delay  can  have 
profound  effects  on  the  overall  polling  completion  time. 

4.2  NEW  COMMANDS  AND  MESSAGES  FOR  POLLING 

The  following  new  polling  commands  and  message  formats  are 
possible  with  the  microcomputer  software. 


4.2.1  COMSUP  Commands 

Table  4-2  summarizes  the  new  COMSUP  commands  available  to  the 
NCS  terminal  operator  when  using  the  microcomputer  system  polling 
enhancements.  Note  that  all  the  commands  listed  contain  the  ZNR 
character  field  in  the  first  three  character  positions  in  order  to 
identify  this  properly  as  an  unencrypted  message  in  an  AFSATCOM 
preproduction  Type  12  terminal.  (AFSATCOM  product  ion-type  terminals 
would  require  a  "UUU"  sequence.)  The  fourth  character  position  is 
an  exclamation  point  ("!")  which  signifies  a  COMSUP  message  to  the 
microcomputer's  improved  polling  software.  The  fifth  character 
position  of  a  COMSUP  message  is  always  a  mode  character.  Characters 
six  through  nine  are  microcomputer  address  characters.  (The 
microcomputer  address  is  also  changeable  via  a  COMSUP  command.) 
COMSUP  commands  intended  for  the  microcomputer,  and  any  other 
unencrypted  messages,  are  input  to  the  AFSATCOM  terminal  and 
intercepted  by  the  polling  software.  These  COMSUP  commands  are 
never  transmitted  to  the  AFSATCOM  modem. 

The  seven  message  categories  defining  the  new  COMSUP  commands 
are  shown  in  table  4-2.  These  functional  categories  satisfy  the 
increased  control  and  data  entry  requirements  for  the  various 
polling  mode  enhancements. 
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Table  U-2 


COMSUP  Commands  For  Po 1 li ng  Enhancements 


Command  Type 

Check-in  Table 
Entry 


Check-in  Table 
Deletion 


Funct i on (s) 

Enable  External 
Check-ins 

Disable  External 
Check- i ns 

Single  Priority 
Check- i n 

Single  Routine 
Check- i n 

Single  No-Traffic 
Check-in 

Group  Check-in 

Priority  Table  Load 

Routine  Table  Load 

No  Traffic  Table  Load 

Priority  Table 
Re- initialize 

Routine  Table 
Re- in i t ial ize 

No-Traffic  Table 
Re- i n i t i al ize 

Group  Table  Re¬ 
initialize 

Single  Priority 
Deletion 

Single  Routine 
Deletion 

Single  No-Traffic 
Del et ion 

Single  Group 
Deletion 


Command  Message  Format 

ZNR ! SABC 1 

ZNR1SABC0 

ZNR! CABCAAA1 

ZNR ! DABCBBB1 

ZNR ! EABCCCC0 
ZNR ! BABCDD1 
ZNR! 1  ABC  ADR1  ADR2 
ZNR!?ABC  ADR3  ADRA 
ZNR !  3ABC  ADR5  ADR6 

ZNR! FABC 
ZNR1GABC 
ZNRlHABC 
ZNRIAABC 
ZNR! NABCP01 
ZNR1NABCR01 
ZNRJNABCN0! 
ZNR!NABCG01 
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Table  A-2  (Continued) 

COMSUP  Commands  For  Pol  1  ing  Enhancements 


Command  Type 

Check- i n/Pol 1  Table 
Pr i ntout 


External  Table 
T  ransfer 


Funct ion (s) 

Priori ty  Table 
Pr intout 

Routine  Table 
Printout 

No-Traffic  Table 
Printout 

Group  Table 
Pr i ntout 

Bu i 1 d/Pr i ntout 
of  Pol  1  Tabl e 

Pol  1  Table 
Printout  (Local) 

Pol  1  Tabl e  Pr i nt¬ 
out  (Local  and 
Remote  All  Call) 

Priority  Check-in 
Table  Transfer 

Routine  Check-in 
Table  Transfer 

No-Traffic  Check- i n 
Table  Transfer 

Pol  1  Table  T ransfer 


Command  Message  Format 
ZNR ! UABCPXYZ 

znr!.uab:rxyz 

ZNR ! UABCQXYZ 
ZNRMJABCOXYZ 
ZNR1MABC 
ZNR ! UABCZXYZL 

ZNR ! UABCZXYZR 

ZNRiTABCXXYZ 

ZNR1TABCYXYZ 

ZNR ! TABCZXYZ 
ZNR1TABCTXYZ 
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Table  4-2  (Continued) 

COMSUP  Commands  For  Polling  Enhancements 


Command  Type 
Poll  Mode  Control 


Funct ion (s) 

Command  Message  Format 

Single  Pol  1  Enable 

ZNR! JABC1S 

Single  Pol  1  Disable 

ZNR ! JABC0S 

Multiple  Pol  1 

Enable 

ZNRIJABC1M 

Multiple  Poll 

Di sable 

ZNR! JABC0M 

Non-TDM  Poll 

1 nter rupt 

ZNR1LABC10 

TDM  Poll  1 nter rupt 

ZNR ! LABC01 

TDM  and  Non-TDM 

Poll  Interrupt 

ZNR! LABC1 1 

Di sable  A1 1  Pol  1 
Interrupts 

ZNR ! LABC00 

FDAC  Mode  Fnable 

7NR ! PABC1 

EDAC  Mode  Disable 

ZNR!PABC0 

Pol  1  Message  T i me 

Del  ay 

ZNR1KABC10 

Report  back/Pol  1 
Message  Slot 

Reass ignment 

ZNR! 0ABC1 018263^^25004 
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Table  4-2  (Continued) 


COMSUP  Commands  For  Pol  1  i nq  Enhancements 


Command  Type 


Funct i on (s)  Command  Message  Format 


Mi  see  1 1 aneous 


Disable  COMSUP  Msg. 
Printout 

ZNR!*tABC0 

Enable  COMSUP  Msg. 

Pr i ntout 

ZNRUABC1 

Di sregard  A1 1  Non- 
COMSUP  Msgs. 

ZNR1VABC2 

Disregard  Non-COMSUP 
Msgs .  when  Poll i ng 

ZNR'.VABCI 

Enable  Recognition  of 

A1 1  Types  of  Msgs . 

ZNR1VABC0 

RS-232  I/O  Enable 

ZNR1QABC1 

RS-232  I/O  Disable 

ZNR'.QABCp 

Microcomputer  Address 
Change 

ZNR! IABCCAB 

Program  Re- i n i t i al i ze 

ZNR1RABC 

Loop-Around  Message 

ZNR* . 

T  ransmi t ted 
Message 


25 


4.2.2  Error  Messages 

Table  4-3  summarizes  the  new  error  messages  available  to  the 
terminal  operator  with  the  microcomputer  software.  These  messages 
assist  in  either  flagging  anomalous  COMSUP  command  inputs  to  the 
microcomputer  or  indicating  to  the  operator  when  pre-determined 
limits  have  been  reached  for  polling  check-in  messages. 


4.2.3  External  Message  Formats 

Table  4-4  summarizes  the  types  of  externally  generated  messages 
from  the  AFSATCOM  modem  which  are  used  for  polling  operations  with 
the  microcomputer  software.  These  messages  are  divided  into  three 
basic  categories: 

1.  Single  Check-in 

2.  Check-in  Table  Transfer 

3.  Reportback 

The  single  check-in  message  is  normally  sent  by  a  terminal 
desiring  to  become  a  member  of  a  poll  network.  It  is  accepted  by 
the  microcomputer  software  after  the  check-in  mode  has  been  enabled 
by  the  NCS  terminal  operator. 

Check-in  table  transfer  message  formats  allow  entry  of  entire 
sets  of  check-ins  involving  multiple  addressees  into  appropriately 
prioritized  check-in  tables. 

Reportback  message  formats  are  normally  sent  by  a  terminal 
responding  to  a  poll  inquiry  message.  When  the  microcomputer 
software  recognizes  these  reportback  formats  during  polling 
operation,  appropriate  prioritization  header  messages  are  appended 
to  the  incoming  message  before  printout  on  the  terminal  I/O  device. 


Table  4-3 


Error  Message  Formats 


Message  Name 

Function 

Message  Text 

ADRERRORHDR 

Informs  of  incorrect 
address  characters 

Incorrect  ADR  Characters 

ERRORHDR 

Informs  of  incorrect 
mode  character 

Incorrect  Mode  Character 

TFRERRORHDR 

Informs  of  attempted 
check-in  table  transfer 
with  no  check-ins  listed 

Table  Transfer  Error: 

No  Check-ins 

OVERFLOWHDR 

Informs  of  Check-in 
limit  being  re  3ched 

Check-ins  at  the  Limit 

Table  4-4 

External  Message  Formats 

Message  Type 

Funct ion 

Format 

Single  Check-in 

Priority  Check-in 

~50H  C  ABC  ADR1  Text 

Routine  Check-in 

SOH  D  ABC  ADR2  Text 

No-Traffic  Check-in 

SOH  E  ABC  ADR3  Text 

Check-in  Table 
Transfer 

Priority  Check-in 
Table  Transfer 

SOH  X  ABC  ADR1ADR2. . . . 

Routine  Check-in 

Table  Transfer 

SOH  Y  ABC  ADR3ADR4. . . . 

No-Traffic  Check-in 
Table  Transfer 

SOH  Z  ABC  ADR5ADR6.. . . 

Reportback  Message 

;  Priority  Report 

back 

SOH  P  ABC  Text 

Routine  Report 
back 

SOH  R  ABC  Text 

No-Traffic  Report 
back 

SOH  N  ABC  Text 
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SECTION  5 


MICROCOMPUTER  HARDWARE 


The  microcomputer  developed  for  demonstrating  AFSATCOM  polling 
improvements  is  shown  in  the  functional  block  diagram  in  figure  5-1. 
It  consists  of  an  Intel  SBC  80/20  Single  Board  Computer,  a  National 
Semiconductor  Model  BLC  416  16K-byte  programmable  read-only  memory 
(PROM)  board,  an  Intel  Model  450  16K-byte  random  access  memory  (RAM) 
board,  a  power  supply  subsystem,  and  interface/display  logic 
circuitry.  The  SBC  80/20,  RAM,  and  eraseable  PROM  (EPROM)  boards 
are  housed  in  the  Intel  SBC  604  Modular  Cardcago/Backplane  which 
provides  interconnection  for  up  to  four  plug-in  boards.  The  SBC  604 
also  allows  interconnection  of  two  or  more  cardcage  backplane 
assemblies  for  expansion,  in  addition  to  power  supply  < onnectors  and 
signal  line  termination  circuits.  A  small  table-top  19-inch  modular 
rack  mounting,  shown  in  figure  5-2,  contains  the  cardcage,  along 
with  the  power  supply  subsystem,  slot  selection  and  display 
circuits,  bypass  switches,  test  points,  and  cable  terminations  for 
circuit  connections  to  the  AFSATCOM  System. 


5.1  INTEL  SBC  80/20  SINGLE  BOARD  COMPUTER 

The  Intel  SBC  80/20  Single  Board  Computer  is  the  heart  of  the 
microcomputer  implementation  for  polling  improvements.  It  is  one  of 
Intel’s  line  of  computer  products  and  takes  full  advantage  of  large 
scale  integration  (LSI)  technology  to  provide  a  self-contained 
computer  capability  on  a  single  6.75  x  12.00  inch  printed  circuit 
board.  On-board  capability  provides  a  central  processing  unit 
(CPU),  system  clock,  read/write  memory,  nonvolatile  read-only  memory 
(ROM),  1/0  ports  and  drivers,  a  serial  RS-232  communications 
interface,  priority  interrupt  logic,  and  two  programmable  timers. 

In  addition,  on-board  multibus  control  logic  and  bus  expansion 
drivers  allow  interfaces  to  multibus-compatible  boards  including 
expansion  memory,  digital  and  analog  I/O  expansion  boards, 
peripheral  controller,  and  other  single  board  computers.  A  complete 
functional  description  of  the  SBC  80/20  is  found  in  reference  1. 
Details  of  the  SBC  80/20  are  found  in  reference  2.  Table  5-1  lists 
integrated  circuit  (IC)  locations  for  polling  program  storage  on  the 
SBC  80/20. 
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crocomp 


Table  5-1 

EPROM  (2708)  Location  Summary 


Prom  H 

1C 

Board 

Start  ADR  (Hex) 

Finish  ADR 

1 

A79 

SBC  80/20 

0000 

03FF 

2 

A64 

SBC  80/20 

0400 

07FF 

3 

A51 

SBC  80/20 

0800 

OBFF 

4 

A37 

SBC  80/20 

OCOO 

OFFF 

3 

U33 

BLC  416 

1000 

13FF 

6 

U2 1 

BLC  416 

1400 

17FF 

7 

U9 

BLC  416 

1800 

1 BFF 

8 

U3 

BLC  416 

1C00 

1  FFF 

9 

U34 

BLC  416 

2000 

23FF 

10 

U22 

BLC  416 

2400 

27FF 

11 

U10 

BLC  416 

2800 

2BFF 

12 

U4 

BLC  416 

2C00 

2FFF 

13 

U35 

BLC  416 

3000 

33FF 

14 

U23 

BLC  416 

3400 

37FF 

15 

U1 1 

BLC  416 

3800 

3BFF 

16 

U5 

BLC  416 

3C00 

3FFF 
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5.2  NATIONAL  SEMICONDUCTOR  BLC  416  16K  PROM  BOARD 

The  National  Semiconductor  BLC  416  16K  PROM  expansion  board 
provides  sockets  for  up  to  16K  bytes  of  2708  EPROMs  (32K  bytes  for 
2716  EPROMs).  For  the  polling  program,  however,  only  12  of  the  16 
2708  EPROMs  required  for  program  storage  actually  reside  on  this 
board;  the  four  remaining  2708  EPROMs  reside  on  the  SBC  80/20. 

Table  5-1  summarizes  the  physical  locations  of  the  EPROM  program 
storage  for  execution  of  the  polling  software.  Switches  to  either 
enable  or  disable  various  memory  blocks  are  provided  on  this  board 
along  with  jumper-switch  selectable  addresses  for  each  4K  block  (8K 
when  used  with  the  2716  EPROMs).  This  allows  independent  selection 
of  base  addresses  of  individual  memory  blocks  on  4K  byte  boundaries 
Along  with  on-board  programming,  the  BLC  416  provides  multibus- 
compatible  address,  data,  and  command  signals.  Table  5-1  lists  the 
IC  locations  for  polling  program  storage  on  the  BLC  416  PROM  board. 


5.3  INTEL  450  16K  RAM  BOARD 

The  Intel  450  16K  RAM  is  a  mult ibus -compatible  board  which 
contains  16K  bytes  of  read/write  memory  and  uses  2107C  dynamic 
memory  components  with  on-board  refresh  circuitry  for  all  the 
dynamic  memory  elements.  Read/write  buffering,  which  also  resides 
on-board,  buffers  all  data  written  into  or  read  from  the  memory 
array  and  includes  a  jumper-selectable  starting  address  for  16K 
contiguous  addresses  at  16K  boundaries.  For  the  polling 
application,  the  lowest  RAM  aalress  is  set  at  4000H  and  the  highest 
RAM  address  is  7FFFH. 


5.4  I/O  AND  DISPLAY  CIRCUITS 

Figure  5-3  shows  the  additional  cabling  needed  in  the  Type  12 
CP  terminal  for  interconnecting  the  I/O  and  display  boards  of  the 
microcomputer  system  with  the  AFSATC0M  System.  No  changes  to 
existing  AFSATC0M  interfaces  were  made;  only  cabling  and  connector 
additions  were  employed.  Each  of  the  I/O  and  display  circuits  is 
detailed  below. 


5.4.1  Master  Clock  Generator 


Figure  5-4  shows  the  Master  Clock  Generator  circuit.  This 
circuit  provides  various  gated  75  Hz  clocks  and  associated  signals 
for  both  the  transmit  and  receive  functions  utilizing  a  75  Hz 
reference  input  from  one  of  two  timer  circuits  on  the  SBC  80/20. 
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5.4.2  External  I/O  Interface 

Figure  5-5  shows  the  external  I/O  interface  circuits.  This 
circuitry  provides  the  level  conversion  necessary  to  connect  the 
MIL-STD-188C  interfaces  found  in  the  AFSATCOM  Type  12  terminal  with 
the  complementary  metal-oxide  semiconductor  (CMOS)  and  transistor- 
transistor  logic  (TTL) -compatible  circuits  of  the  microcomputer 
system . 


5.4.3  RX  Character  Clock  Generator 


Figure  5-6  shows  the  RX  character  clock  generator  circuit. 

This  circuitry  provides  synchronous  receive  character  clock  for  the 
MPU  receive  data  interface  normally  supplied  by  the  AFSATCOM  Type  12 
terminal.  The  microcomputer  system  does  not  use  the  RX  character 
clock  signal  supplied  by  the  AFSATCOM  modem.  However,  for  proper 
AFSATCOM  operation,  this  clock  is  reconstituted  and  supplied  to  the 
MPU  input  circuitry. 


5.4.4  Memory  I/O  Address  Decoder /Acknowledge 

Figure  5-7  shows  the  memory  I/O  address  decoder/acknowledge 
circuit.  Its  primary  function  is  to  generate  select  signals  for 
memory  address  decoding  for  a  pair  of  Motorola  MC6852  serial  data 
adapter  ICs.  These  select  signals,  along  with  the  memory 
acknowledge  signal,  permit  the  ICs  to  be  utilized  as  if  they  were  an 
inherent  part  of  the  SBC  80/20  memory  addressing  space.  Read  or 
write  operations  to  these  devices  then  use  the  memory  addresses 
which  serve  these  two  ICs. 


5.4.5  TX  Character  Deletion 

The  TX  character  deletion  circuit,  shown  in  figure  5-8,  deletes 
two  redundant  message  characters  encountered  with  the  MC6852  IC  used 
in  conjunction  with  the  AFSATCOM  modem  transmit  interface.  Actual 
transmit  character  deletion  takes  place  before  the  start  of 
transmission  to  the  modem  and  occurs  only  during  the  time  interval 
when  the  AFSATCOM  modem  is  in  the  process  of  transmitting  its  own  nW 
U  SYN  SYN"  preamble. 
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Figure  5~5  External  I/O  Interface  (Sheet  2) 


Figure  5~6  RX  Character  Clock  Generator  (Sheet  3) 


Memory  I/O  Address  Decoder/Acknowledge  (Sheet  A) 


:>n  (Sheet  5) 


5.4.6  Modem/MPU-to-SBC  Serial  Data  Adapter 

Figure  5-9  shows  the  modem/MPU-to-SBC  serial  data  adapter 
circuit.  Its  primary  function  is  to  transfer  serial  data  to/from 
the  AFSATCOM  modem  or  MPU  to/ from  the  SBC  80/20.  The  SBC  80/20 
reads  or  writes  these  data  as  if  they  were  located  in  a  memory 
address.  Selection  of  either  the  modem  I/O  or  MPU  I/O  takes  place 
via  a  register  select  line  with  read/write  operations  controlled 
separate ly . 

The  heart  of  this  circuitry  consists  of  a  pair  of  Motorola 
MC6852  programmable  synchronous  serial  data  adapter  (SSDA)  ICs. 

Each  provides  a  three-character  buffered  bi-directional  serial 
interface  for  synchronous  data  exchange.  The  MC6852  design 
incorporates  bus  interface  logic  to  allow  parallel  data  transfer 
over  the  SBC  80/20  bi-directional  parallel  data  bus.  The  actual 
configuration  of  the  SSDA  is  programmed  via  the  data  bus  using  the 
polling  program  system  initialization  software.  SSDA  internal 
programmable  control  registers  provide  word  length,  transmit, 
receive,  synchronization,  and  interrupt  controls.  Status,  timing, 
and  other  SSDA  control  lines  provide  additional  peripheral  or  modem 
functions . 


5.4.7  SBC  80/20  Interfaces 

Figure  5-10  summarizes  the  1/0  and  display  interfaces  within 
the  microcomputer  system.  Jumpers  and  parallel  terminations 
employed,  along  with  physical  board  modifications  for  the  SBC  80/20, 
are  indicated. 


5.4.8  Slot  Counter/Display 

Figure  5-11  shows  the  slot  counter/display  circuit  interfaces 
to  the  SBC  80/20  and  the  1/0  circuits.  Slot  pulses  from  the 
AFSATCOM  synchronizer  are  used  to  increment  the  slot  display  on  a 
pair  of  Texas  Instruments  TIL  306  ICs  while  the  frame  pulse  from  the 
synchronizer  (or  a  manual  toggle  switch)  provides  a  reset  function 
back  to  zero  slot  indication.  A  pair  of  four-bit  binary  coded 
decimal  (BCD)  output  lines  (8  parallel  lines,  total)  to  one  of  the 
SBC  80/20  parallel  input  ports  is  used  by  the  polling  software  in 
calculating  the  current  AFSATCOM  slot.  As  implemented  in  the 
demonstration  system  software,  zero-slot  indications  signal  the  non- 
TDM  AFSATCOM  mode  and  non-zero  indications  signal  TDM  operation. 
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REGISTER  SELECT 


Figure  5"9  Modem/MPU- to-SBC  Serial  Data  Adapter  (Sheet  6) 


Figure  5*10  SBC  80/20  Single  Board  Computer  Interfaces  (Sheet  7) 


ot  Counter/Display  (Sheet  8) 


5.4.9  RS-232  Serial  Interfaces 


Figure  5-12  summarizes  the  cable  interfaces  employed  with  the 
microcomputer  system  and  made  possible  by  serial  RS-232  interface 
circuitry  which  employs  a  software-programmable  8251  USART  IC  on  the 
SBC  80/20  card.  Shown  are  cable  interfaces  for  use  with  a  Bell  103J 
modem,  a  "NULL”  modem,  a  Lear  Siegler  ADM-3A  CRT  terminal,  and  a 
Texas  Instruments  Model  765  Intelligent  Terminal. 

When  the  polling  software  is  commanded  into  its  RS-232  mode, 
all  messages  normally  routed  to  the  AFSATCOM  MPU  interface  are 
rerouted  to  the  RS-232  serial  interface  port  at  a  300  b/s  rate 
(instead  of  75  b/s).  Messages  destined  for  transmission  to  the 
AFSATCOM  modem  or  COMSUP  commands  normally  originating  at  an 
AFSATCOM  ASR  device  may  now  be  entered  into  this  RS-232  interface. 
While  in  this  mode,  the  AFSATCOM  ASR  may  still  be  used  for  all 
transmitting  functions;  however  normal  reception  from  the  OW  (or 
NB-1)  channel  will  be  diverted  to  this  RS-232  port.  When  not  in  the 
RS-232  mode,  normal  NB  interfaces  to  the  MPU  are  utilized. 


5.5  MODULAR  RACK  HARDWARE  FEATURES 

When  the  microcomputer  rack  assembly  is  installed  in  the  Type 
12  terminal,  two  multi-pole  bypass  switches  mounted  on  the  front 
panel  can  disengage  the  microcomputer  system  from  the  MPU,  NB  modem, 
and  synchronizer  interfaces  without  physical  removal  of  connectors. 
Connector  terminations  on  the  rear  of  the  rack  provide  convenient 
access  for  cables  to  the  AFSATCOM  Type  12  CP  terminal. 

The  modular  rack  assembly  is  designed  for  ease  in  removing  all 
mounted  components  and  subsystems.  Test  points  mounted  on  the  front 
panel  of  the  rack  also  provide  a  convenient  access  to  all  interfaces 
for  ease  in  trouble-shooting.  Front  panel  fuses  on  the  rack  serve 
to  protect  the  various  power  supplies  in  the  power  supply  subsystem. 
An  on-off  power  line  switch  and  a  line  voltage  indicator  are  below 
these  fuses . 

Finally,  a  slot  display  reset  switch  and  eight  BCD  slot 
selection  switches  are  also  front-panel  mounted  for  convenient 
control  of  polling  test  functions  related  to  TDM  and  non-TDM  modes. 


a)  RS232  SERIAL  INTERFACE  CABLE  FOR 
SBC  80/20 


b)  UNIVERSAL  NULL  MODEM  CABLE 
(USED  IN  LIEU  OF  BELL  103J) 


MATES  WITH 
BELL  103J 


MATES  WITH 
ADM  3A  CRT 
GND  I 


MATES  WITH 
BELL  103J 


MATES  WITH 
PI  ON  Tl  765 


bDTR 

DTR 

SIG  GND 

SIG  GND 

(25  PIN 

(25  PIN 

MALE) 

MALE)  I 

j 

(25  PIN 
MALE) 


(15  PIN 
MALE) 


SECTION  6 


MICROCOMPUTER  SOFTWARE 


Figure  6-1  shows  the  major  elements  of  the  microcomputer 
facility  at  MITRE-Bedford  which  was  used  for  overall  software 
development  for  the  polling  improvement  project.  The  Tektronix 
8002A  software  development  system  and  the  MITRE  Time  Sharing  Option 
(TSO)  system  assets  related  to  polling  software  development  are 
described  below. 

The  microcomputer  software  for  the  improved  polling 
demonstration  capability  was  written  in  PL/M-80  high-level  language 
on  TSO.  The  PL/M-80  source  coding,  which  is  essentially  self- 
documenting,  takes  advantage  of  modular  interrupt- f ree ,  structured 
programming  techniques  and  attempts  to  minimize  (but  not  entirely 
eliminate)  interactions  between  the  various  modular  segments  of  the 
overall  program. 

After  appropriate  compilation  and  debug  on  TSO,  followed  by 
downloading  to  the  Tektronix  8002A  microprocessor  laboratory, 
executable  code  was  installed  in  the  microcomputer  system  using  2708 
EPROM  non-volatile  memory  ICs.  Execution  of  this  code  in  the 
microcomputer  system  provides  the  processing  functions  needed  to 
satisfy  the  polling  enhancements  described  in  section  4. 


6.1  FLOW  CHARTS 

The  polling  software  for  the  microcomputer  system  is 
functionally  described  by  the  flow  chart  of  figure  6-2.  Following 
power  turn-on  of  the  microcomputer  system,  the  software  executes  the 
Initialization  Sequence,  followed  by  the  main  program  loop  starting 
at  the  Slot  Calculation  Algorithm  and  ending  at  the  TX  Output 
Algorithm.  Return  to  the  Initialization  Sequence  is  also  possible 
by  means  of  a  software  re-initialization  COMSUP  command.  Unless  the 
software  is  re-initialized,  however,  normal  program  execution 
continues  in  this  endless  loop.  The  t ime-to-complet ion  of  a  single 
cycle  within  this  loop  is  typically  less  than  a  single  character 
interval  at  the  AFSATCOM  75  b/s  rate.  Coupled  with  this  capability 
is  a  three-character  buffer  in  the  serial  synchronous  MPU  and  modem 
interfaces  employed  for  use  with  the  AFSATCOM  hardware  (see 
subsection  5.4.6)  which  avoids  loss  of  data  during  program  execution 
in  an  interrupt- free  manner. 


TEKT 


gure  6-1  Microcomputer  Development  Facility 


Figure  6-2  Polling  Software  Program  Flowchart 


Table  6-1  describes  the  various  program  modules  along  with 
their  major  performance  characteristics  during  program  execution. 
The  polling  algorithm  is  the  heart  of  the  overall  polling  program 
software;  a  more  detailed  flow  chart  of  this  polling  algorithm  is 
provided  in  figure  6-3. 


6.2  PL/M-80  SOURCE  CODE  AND  MEMORY  ALLOCATIONS 

Table  6-2  contains  the  improved  polling  software  symbol  table 
and  memory  map  which  identifies  RAM  and  ROM  (EPROM)  label  locations, 
variables,  and  constants  used  throughout  the  software.  This  table 
is  consistent  with  the  program  module  PL/M-80  labels  shown  in  table 
6-1  and  the  address  locations  in  table  5-1  so  that  the  start  of  each 
major  program  module  may  be  readily  identified.  This  also  allows 
ease  in  modifying  or  upgrading  existing  software  by  appropriate 
EPROM  replacement  within  the  microcomputer  system.  Appendix  B 
contains  the  actual  PL/M-80  source  code  which  was  written  on  TSO. 


6.3  MITRE  TSO  SYSTEM  PL/M-80  SUPPORT 

PL/M-80  assets  available  on  TSO  which  were  utilized  for  the 
microcomputer  software  development  are  described  below. 


6.3.1  PL/M-80  High  Level  Language 

PL/M-80  is  an  advanced  high  level  programming  language 
available  on  the  MITRE  TSO  system.  Specifically  designed  to 
simplify  the  job  of  system  programming  for  the  Intel  8080  8-bit 
microprocessor,  it  provides  a  very  effective  software  development 
and  maintenance  tool,  well  suited  to  the  requirements  of  the 
microcomputer  system  designer.  PL/M-80  is  also  easy  to  learn  and 
facilitates  rapid  program  development  and  debugging  since  it  is  an 
algorithmic  language  in  which  the  program  consists  of  a  sequence  of 
declarations  and  executable  statements  naturally  expressing  the 
algorithm  to  be  performed.  Thus,  the  programmer  is  free  to 
concentrate  on  system  development  through  use  of  modern  structured 
programming  techniques  at  a  high  level,  rather  than  dealing  with 
assembly  language  details  (such  as  register  allocation,  etc.).  For 
a  complete  description  of  PL/M-80  see  reference  3. 


6.3.2  PL/M-80  2-Pass  Cross-Compiler 

The  8080  PL/M  cross-compiler  consists  of  two  distinct  programs 
which  must  be  executed  consecutively  to  perform  a  complete 
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depending  on  which  is  activated;  shifts  down  internal 
storage  buffer  upon  completion  of  message  transmittal 
enables  clock  output  to  MPU  on  start  of  message 
transmittal  and  disables  it  on  completion. 


Program  Software  Module  Description 


A 

l 

t 


Figure  6-3  Polling  Algorithm  Flowchart 


Table  6-2 


Symbol  Table  and  Memory  Map 


Name 

Location  (Hex) 

Name 

Locat i on  (H 

ADRl 

4638 

CLK  3 

4662 

ADR2 

4639 

CLKCNT 

5792 

ADR3 

463A 

CLKCNT1 

4664 

ADRCHANGE 

1B80 

CLKCNT 2 

4666 

ADRERRORl 

1D67 

CLKCNT 3 

4668 

ADRERRORHDR 

037C 

CLKP 

579A 

AUTOPOLLRESTART 

0611 

CLKP1 

465E 

AUTOREPOLL FLAG 

4684 

CLKP  2 

4661 

BUFFERDELAY 

579C 

CLKP  3 

4663 

BUFFERDELAY1 

466A 

CMODE 

6661 

CC 

6668 

CMODLCANCEL 

0D99 

CC1 

5760 

CMODECANCEL1 

ODFC 

CCPRESENT 

4658 

COMP OS El 

17FF 

CC1PRESENT 

465A 

COMSUPLOADl 

296F 

CCTEST 

0B25 

CS 

5775 

CHAR 

5776 

CS1 

4688 

CHARI 

4689 

CS3 

464A 

CHAR3T 

0998 

CS4 

464B 

CHAR4T 

09B1 

CSDATAPOINTER 

5764 

CHAR ATI 

166B 

CS1DATAPOINTER 

576C 

CHAR5T 

09CA 

CSTEST 

0B13 

CHARSTORE 

5D64 

DELAY 

579B 

CHARSTORE1 

468E 

DELAY  1 

465F 

CHECKINDELETE 

247A 

DELAYCAL 

1D3A 

CHECK INMODESET1 

28D5 

DELAYROUTINE 

1442 

C1NUMTEST 

0D76 

DELAYROUTINE1 

03D7 

CLK 

5799 

EATMSG1 

1773 

CLK1 

465D 

EATMSGFLAG1 

465C 

CLK  2 

4660 

EATMSGSET 

1AF3 

Table  6-2  (continued) 


Name 

Loca  t  i  on  jHex J 

Name  „Locati 

ion  (He; 

EDACFLAG 

4656 

INPUT5  DATAPOINTER 

5768 

EDACMODESET 

1B4A 

INPUT103DATAP0INTER 

57  6E 

EDACROUTINE 

0A33 

INPUT 105DATAPOINTER 

5770 

ENC 

5777 

J 

5762 

ENCRYPT 

0937 

LCT 

09E0 

ENCTEST 

0904 

LCT1 

1685 

ENDLOAD 

3833 

L [NECOUNT 

468D 

EOMTEST 

1 3E0 

LOADADR 

37A1 

EOMTEST1 

3D3F 

MEMORY 

7400 

ERRORHDR 

039A 

MJF 

5778 

GC 

08BD 

MJT1 

09  3E 

GCl 

1614 

MJT2 

0AC7 

GCIPOINTER 

578C 

MODE 

5779 

GCIRESET 

2960 

MODEERROR1 

2A08 

GCI STORE 

5C23 

MODEMIOCTL1POINTER 

4632 

GPOLLBUILDl 

3C92 

MODEMIOCTL2POINTEK 

4634 

GT1 

2278 

MODEMOUTPUTCOMPOSE1 

1700 

GTABLEBUILD1 

3548 

MODEMOUTPUTCOMPOSE2 

1783 

GTABLEDUMP1 

34C1 

MPUCINUMTEST1 

2824 

GTDHEADER 

0362 

MPUIOCTL1PO INTER 

462E 

I 

6662 

MPUIOCTL2POTNTER 

4630 

11 

575A 

mputablebuild 

0E58 

INITXALMSG 

0461 

MSGCOUNT 

6534 

IPLTEST 

1915 

MSGCOUNT1 

4E5E 

IPOLLl 

04BF 

MSGDELAY 

579E 

IPOLL11 

087C 

MSGOVERDELAY 

4672 

1 POLL 101 

15A8 

N 

577C 

IPOLL101 1 

15D4 

NC 

5786 

INPUT3DATAPOINTER 

5766 

NCIHEADER 

02CD 

Table  6-2  (continued) 


Name 

Location  (Hex ) 

Name 

Location  (Hex) 

NCIPOINTER 

5790 

OPOLL1 

13BB 

NCIRESET 

2945 

OPOLLlOl 

3D1A 

NCI STORE 

5AA2 

OUTl 

468A 

NCITEST 

0CC8 

OUTCHAR 

148C 

NOCOMS UPLOAD 1 

29FD 

OUT CHARI 

3EA7 

NONTDMDELAY 1 

3DF6 

OUT COUNT 

6666 

NONTDMDELAYSET 

1CD2 

OUT FLAG 1 

1680 

nontdmmsgdelayi 

466C 

OUTPUTCOMPOSE 

16CF 

NONTDMPOLL 

0622 

OUTPUT 1DATAPOI NTER 

576A 

NPOLLBUILDl 

3C12 

OUTPUT 101DATAP0 INTER 

5772 

NRBHEADER 

02E1 

OUTTABLE 

666B 

NRBLOAD 

0F9A 

0UTTABLE1 

4F8A 

NT  1 

2201 

OUTTABLE BUILD 

0E64 

NTABLEBUTLD1 

339B 

OUTTABLE 1STATUSTEST 

05E9 

NTABLEDUMP1 

3314 

OVERFLOWl 

2847 

NTDHEADER 

0343 

OVERFLOW2 

284C 

NTDMDEliAYH 

467C 

OVERFLOWHDR 

03D9 

NTDMDELAYL 

467E 

PCIHEADER 

0241 

NTDMEDACTABLE 

464F 

PCIPOINTER 

5784 

NTDMPOLLI NTERRUPTFLAG  4686 

PCI  RESET 

292D 

NTTHEADER 

02F5 

PCI STORE 

57AO 

NTTLOAD 

1278 

PCITEST 

OB43 

NTTLOAD1 

200A 

POLLDUMPBUILD1 

372F 

NTTLOADEND 

1348 

POLLDUMPHDR 

03F4 

NTTRl 

2CEB 

POLLFLAG 

4683 

NUMGCI 

577E 

POLLINGMODETEST 

05FF 

rnnrici 

578E 

POLLINTERRUPT 

1C5B 

NUMPCI 

5732 

POLLMODE 

1BB4 

'TUMRCI 

5783 

POLLMODEERROR 

0550 

57 


Table  6-2  (continued) 


Name 

Location  (Hex) 

Name 

Location  (Hex 

POLLMSGCOMPLETE 

0580 

PTABLEBUILDl 

3042 

POLLMSG COUNT 

464C 

PTABLEDUMP1 

2FBB 

POLLMSCOVER 

0410 

PT1 COUNT 1 

73FE 

POLLOVERTEST 

0558 

PTDHEADER 

030A 

POLLPOINTER1 

73FC 

PTTHEADER 

02E5 

POLLSLOT1H 

463B 

PTTLOAD 

0FF3 

POLL SLOT 2H 

46  3C 

PTTLOAD1 

1E3D 

POLLSLOT 3H 

463D 

PTTLOADEND 

10C2 

POLLSLOT4H 

463E 

PTTRl 

2B45 

POLLSLOT 5H 

463F 

QUIT 

3FAB 

POLLSLOT 6H 

4640 

RCIHEADER 

02C9 

POLLSLOT 1L 

4641 

RCIPOINTER 

578A 

POLLSLOT 2L 

4642 

RC I  RESET 

29  3E 

POLLSLOT 3L 

4643 

RC I STORE 

5921 

POLLSLOT 4L 

4644 

RCITEST 

0C05 

POLLSLOT 5L 

4645 

REPOLLFLAGCOUNT 

4657 

POLLSLOT 6L 

4646 

RF.POLLTEST 

0572 

POLLTABLE1 

6E3B 

RETRANSM1TFLAG 

4676 

POLLTABLEBUT  LDl 

3B34 

RF.TRANSMITFLAGSET 

OAAD 

POLLTABLEDUMP1 

36B1 

RP0LLBUILD1 

3B96 

POLLTABLEDUMP2 

366E 

RRBHEADER 

02  DD 

POLLTABLETX 

3A3E 

RRBLOAD 

0F41 

POLLT  ABLF.TXFLAG 

4685 

RS232FLAG 

4637 

POLLTTRl 

2DBE 

RS232CC1 

161D 

POLLX’'IT 

0530 

RS232INPUT1 

15B9 

PRBHEADER 

02D1 

RS232MODESET 

1ABD 

PRBLOAD 

0EE8 

RS2320UTCHAR 

14B1 

PROGRAMSTART 

0007 

RS232SPACETEST 

1427 

PT1 

2114 

RT1 

218A 

58 


Table  6-2  (concluded) 


f 


m 


Name 

Location  (Hex) 

Name  Locati 

ion  (Hex) 

RTABLEBUILDl 

31EE 

TCLK 

466F 

RTABLEDUMP1 

3167 

TCLK1 

4673 

RTDHEADER 

0327 

TCLKCNT 

4671 

RTTHEADER 

02F1 

TCLKCNT1 

4675 

RTTLOAD 

1135 

TCLKP 

4670 

RTTLOADl 

1F23 

TCLKP1 

4674 

RTTLOADEND 

1205 

T  DMDELAY  ROUT  INE 1 

3DB3 

RTTR1 

2C18 

TDMFLAG 

4682 

RXBUSYOVERRIDE1 

3E60 

TDMPOLL 

0739 

SHIFT DOWN 

14C8 

TDMPOLL I NTERRITPTFLAG 

4687 

SHIFTDOWN1 

3EC2 

TDMPOLLTXSLOT 

4677 

SLOT 

467A 

TDMPOLLTXSLOTINITIAL 

4649 

SLOTCOUNT 

467B 

TFRERROR1 

2E7B 

SLOTGUARDTIME 

4680 

TFRERRORHDR 

03B8 

SLOTH 

4678 

TOTALNUMCI 

5780 

SLOTL 

4679 

TTLOADEND1 

20F1 

SLOTREASSIGN 

19AD 

TTRl 

2A94 

SPACE 

577B 

TXSLOTINITIALH 

4647 

SPACE1 

468C 

TXSLOTIN IT IALL 

4648 

SPACETEST 

1401 

WAITING 

577A 

SPACETEST1 

03D5 

WAITING1 

468B 

ST 

0916 

WW 

08A7 

STARINSERT 

0B1C 

XX 

08  9B 

STARTUPMSG 

04  2E 

YY 

15F2 

TBLDUMP1 

2EE1 

zz 

15FE 

TC 

6664 

TCl 

575C 

TCIN1TIAL 

5794 

TC1INITIAL 

5796 

59 
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compilation  of  a  PL/M  source  program.  The  two  programs  are  known  as 
Pass  1  (PL/M-81)  and  Pass  2  (PL/M-82)  of  the  PL/M  compiler.  They 
are  written  in  ANSI  standard  Fortran  IV  and  are  installed  on  the 
MITRE  TSO  system. 

The  first  pass  of  the  compiler  reads  a  PL/M  source  program  and 
converts  it  to  an  intermediate  form  on  work  files.  As  an  option,  a 
listing  of  the  input  source  program  may  be  obtained  during  this 
pass.  Errors  in  program  syntax  are  detected  at  this  stage  and 
appropriate  error  messages  are  sent  to  the  list  file. 

The  second  pass  of  the  PL/M  compiler  processes  the  intermediate 
files  created  by  Pass  1  and  generates  machine  code.  This  machine 
code,  which  can  be  in  either  BNPF  or  hex  format,  may  be  loaded  and 
executed  on  the  SBC  80/20  microcomputer ,  on  the  Tektronix  8002A,  or 
simulated  using  INTERP/80,  a  cross-simulator  of  the  8080  micro¬ 
processor  unit.  It  may  also  be  used  for  programming  ROMs.  Pass  2 
of  the  compilation  process  can  produce  a  symbol  table  and  mnemonic 
listing  of  the  generated  machine  code.  Errors  detected  during  this 
phase  will  be  reported  in  the  list  file  which  is  produced. 

Figure  6-4  illustrates  the  overall  file  structure  and  flow  of 
program  execution  of  the  PL/M  cross-compiler  available  at  MITRE. 

For  a  complete  description  of  the  PL/M-80  2-pass  cross-compiler  see 
reference  4. 

The  run-time  organization  of  the  memory  storage  allocation  for 
a  compiled  PL/M-80  object  program  is  shown  in  figure  6-5.  Memory  is 
allocated  in  three  sections: 

1.  Instruction  Storage  Area  (ISA). 

2.  Variable  Storage  Area  (VSA) 

3.  Free  Storage  Area  (FSA) 

The  ISA  is  occupied  by  the  machine  code  generated  by  the  PL/M 
source  and  variables  declared  in  DATA  declarations. 

The  VSA  is  located  above  the  ISA,  and  contains  (in  order  of 
decreasing  address): 

1.  Variables,  other  than  DATA  variables,  declared  in  the 
PL/M  source.  They  are  arranged  in  order  of  declaration. 
ADDRESS  variables  are  not  aligned. 

2.  Compiler  generated  temporaries  (i.e.,  workspace  used  in 
the  object  program,  but  not  explicitly  declared). 
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Figure  6-4  File  Structure  and  Flow  of  Program 

Execution  on  8080  PL/M  Cross  Compiler 
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IA  59,077 


Figure  6-5  Run-Time  Storage  Organization  of 
Memory  Storage  Allocation 
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3. 


The  stack.  The  size  of  the  stack  area  is  determined  by 
the  compiler,  unless  explicit  overrides  are  used. 

The  compiler  will  normally  locate  the  VSA  directly  above  the 
ISA.  However,  the  compiler  user  may  specify  the  first  page  of 
memory  of  the  VSA  explicitly.  (A  page  of  memory  contains  256 
bytes.)  This  may  be  used,  for  example,  to  ensure  that  the  VSA  is 
located  in  RAM  for  a  system  that  has  both  RAM  and  ROM. 

FSA  is  the  area  of  memory  above  the  VSA.  The  PL/M  identifier 
Mr.MOR.Y  may  be  used  to  reference  the  FSA. 


6.3.3  INTERP/80  for  the  8080  Microprocessor 

An  INTERP/80  program  available  on  the  MITRE  TSO  system  provides 
a  software  simulation  of  the  Intel  8080  CPU,  along  with  "free  form" 
execution  monitoring  commands  to  aid  in  system  software  development 
for  8080-based  microcomputers. 

INTERP/80  accepts  machine  code  produced  by  the  PL/M  8080  cross- 
compiler,  along  with  execution  commands  from  a  time-sharing 
terminal.  The  execution  commands  allow  manipulation  of  the 
simulated  system  memory  and  the  8080  CPU  registers.  In  addition, 
operation  and  instruction  break-points  may  be  set  to  stop  execution 
at  crucial  points  in  the  program.  Tracing  features  are  available 
which  allow  the  CPU  operation  to  be  monitored.  INTERP/80  also 
provides  symbolic  reference  to  memory  storage  locations  as  well  as 
numeric  reference  in  various  number  bases.  Some  of  the  commands 
available  in  INTERP/80  are  presented  in  table  6-3.  For  a  complete 
description  of  INTERP/80,  see  reference  5. 

6. A  TEKTRONIX  8002A  SOFTWARE  DEVELOPMENT  SYSTEM 

The  heart  of  the  Tektronix  software  development  system  is  the 
Tektronix  8002A  microprocessor  laboratory.  The  system  architecture 
of  the  Tektronix  8002A  centers  around  three  microprocessors 
incorporated  into  circuit  card  modules.  The  system  processor,  using 
TEKDOS  operating  system  commands,  controls  system  activity  such  as 
organizing,  storing,  and  retrieving  system  and  user  programs  on  the 
disc  drives,  executing  the  text  and  debug  programs,  supervising  the 
emulator  processor  through  separate  debug  hardware,  and  directing 
all  1/0  activity  for  various  system  peripherals  such  as  the  flexible 
disc  unit,  the  system  terminal,  and  a  line  printer.  See  figure  6-6 
which  shows  the  8002A  microprocessor  laboratory  used  in  conjunction 
with  the  Intel  SBC  80/20  single  board  computer. 
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Table  6-3 


Command 

LOAD 

GO 

(NO)  INTER 

TIME 

CYCLE 

(NO)  TRACE 

(NO)  REFER 
(NO)  ALTER 

CONV 

DISPLAY 

SET 

BASE 

(NO)  INPUT 
(NO)  OUTPUT 
PUNCH 

END 


INTERP/80  Commands 


Function 


Causes  symbol  tables  and  code  to  be  loded  into 
the  simulated  MCS-80  memory. 

Starts  execution  of  the  loaded  8080  code. 

Simulates  an  8080  interrupt. 

Sets  and  displays  the  simulated  8080  cycle  counter. 

Allows  the  simulated  CPU  to  be  stopped  after  a  given 
number  of  cycles. 

Enables  tracing  feature  when  particular  portions 
of  the  program  are  executed. 

Causes  the  CPU  simulation  to  stop  when 
a  particular  storage  location  is  referenced. 

Causes  the  CPU  simulation  to  stop  when  the  contents 
of  a  particular  memory  location  are  altered. 

Displays  the  values  of  numbers  coverted  to  the 
various  number  bases. 

Displays  memory  locations,  CPU  registers,  symbolic 
locations,  and  I/O  ports. 

Allows  the  values  of  memory  locations,  CPU  registers, 
and  1/0  ports  to  be  altered. 

Allows  the  default  number  base  used  for  output  to  be 
changed . 

Controls  simulated  8080  input  ports. 

Controls  simulated  8080  output  ports. 

Causes  output  of  machine  code  in  BPNF  or  hexadecimal 
format . 

Terminates  execution  of  an  8080  program. 
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The  emulator  processor,  a  system  option  for  each  microprocessor 
the  8002A  can  support,  is  controlled  by  the  system  processor.  Via 
the  debug  module  hardware,  the  emulator  processor  performs  two 
functions.  In  emulation  mode  0,  this  processor  executes  the  user 
program  so  that  run-time  and  logic  errors  can  be  detected  before 
actual  software/hardware  integration  begins.  In  emulation  modes  1 
and  2,  the  emulator  processor,  operating  in  conjunction  with  the 
prototype  control  probe,  provides  the  capabilities  for  complete 
software/hardware  debugging  and  integration.  The  control  probe 
plugs  into  the  microprocessor  socket  on  the  prototype  circuit  board, 
thereby  enabling  the  emulator  processor  to  take  the  place  of  the 
actual  microprocessor  that  ultimately  is  installed  in  the  user 
hardware.  In  emulation  mode  1,  the  emulator  processor  executes  the 
user  program  under  supervision  of  the  debugging  system  in  program 
memory  and  memory  mapped  to  the  prototype.  I/O  and  clock  signals 
are  also  available  to  the  user  hardware.  In  emulation  mode  2,  the 
emulator  processor  executes  the  user  program  fully  in  the  prototype 
hardware  with  all  memory,  I/O,  and  clocking  functions  made 
available.  The  debug  system,  however,  still  maintains  control  of 
the  emulator  processor. 

The  third  microprocessor,  the  assembler,  runs  the  relocatable 
macro  assembly  program  when  the  TEKDOS  assembly  command  is  invoked. 
Upon  completion  of  assembly,  assembled  object  code  is  stored  on  disc 
memory  in  hexadecimal  format.  The  assembler  performs  its  function 
for  each  separate  microprocessor  supported  by  the  8002A  with  the 
installation  of  the  appropriate  assembler  software. 

Other  circuit  card  modules  within  the  8002A  provide  supporting 
software  and  hardware  functions.  The  system  memory  contains  16K 
bytes  of  dynamic  RAM  and  a  bootstrap  loader  resident  in  256  bytes  of 
ROM  and  is  accessed  only  by  the  system  processor.  The  system  memory 
is  automatically  loaded  with  the  resident  portions  of  TEKDOS  each 
time  the  8002A  system  is  powered  up.  It  also  provides  buffer  space 
for  all  I/O  activities. 

A  maximum  of  64K  bytes  of  program  memory  resides  on  separate 
circuit-card  modules  within  the  8002A  mainframe  and  can  be  accessed 
by  the  system  processor  or  the  emulator  processor.  Program  memory 
is  used  by  the  system  processor  as  a  text  buffer  during  text  editing 
sessions  and  is  available  during  user  program  execution  as  a  storage 
area  in  conjunction  with  the  emulator  processor.  The  feature  of 
separate  system/program  memory  structure  allows  the  system  memory  to 
maintain  its  integrity  at  all  times  should  the  program  crash  for  any 
reason,  thus  allowing  the  operating  system  software  to  remain 
intact. 
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System  components  within  the  8002A  are  joined  by  a  common 
system  bus  which  is  divided  into  a  system  side  and  a  program  side. 
The  debug  module  provides  the  hardware  interface  between  the  system 
and  emulator  processors  while  the  system  communications  module 
provides  EIA  standard  RS-232C  interfaces  for  all  peripheral  devices 
except  the  dual  flexible  disc  drive  unit  and  the  associated  system 
terminal . 

Storage  of  about  660K  bytes  on  dual  disc  drives  (330K  bytes  per 
single-sided  disc)  is  available  as  the  mass  storage  medium  for  the 
8002A.  The  drive  unit  communicates  directly  with  the  system 
processor  module  through  an  interconnecting  cable. 

The  real-time  trace  module,  an  eight-clip  test  probe,  and  the 
data  acquisition  interface  panel  make  up  the  real-time  prototype 
analyzer  of  the  8002A.  The  module  provides  a  high-speed  buffer 
memory  capable  of  retaining  128  data  words  in  a  dynamic  fashion. 

Each  acquired  word,  composed  of  48  bits,  contains  16  address  bits, 
eight  of  16  bits  from  the  system  bus,  and  eight  data  bits  from  the 
test  probe.  An  additional  eight  bits  identify  the  type  of  cycle 
such  as  read,  write,  I/O  memory,  or  instruction  fetch.  The  module 
also  contains  the  controlling  logic  circuitry  for  utilizing  the 
analyzer's  command  repertoire.  The  test  probe  itself  is  an  eight- 
pin,  high- input  impedance  device  which  may  be  connected  during 
emulation  modes  1  and  2  to  any  locations  on  the  user  prototype 
hardware.  Fixed  TTL  or  variable  threshold  levels  are  switch- 
selectable  on  the  interface  unit,  with  acquired  data  buffered  by  the 
probe  and  then  fed  to  the  real-time  trace  module  via  the  cable 
interface.  Data  acquired  by  the  trace  module  and  the  eight  channels 
of  externally  acquired  data  are  thus  subject  to  the  same  TEKDOS 
command  set  of  the  8002A.  Finally,  two  BNC  connectors  on  the  data 
acquisition  interface  can  also  be  used  to  trigger  a  logic  analyzer 
or  scope,  thereby  allowing  greater  trouble-shooting  capability  of 
prototype  circuitry  during  program  execution  while  maintaining 
debugging  control  through  the  8002A. 

The  PROM  programmer  within  the  8002A  can  support  two  PROM 
programming  options,  one  for  1702A  PROMs  and  one  for  2704/2708 
PROMs.  Each  option  consists  of  the  appropriate  plug-in  circuit  card 
and  PROM  programming  software  to  supervise  and  control  the  transfer 
of  user  programs  between  program  memory  and  the  PROM  chip. 

Interface  to  the  PROM  programmer  is  on  the  front  panel  of  the  8002A 
system  mainframe,  via  zero-insertion-force  sockets. 

The  ability  of  the  8002A  to  communicate  with  external  host 
processors  provides  the  flexibility  of  writing  software  externally 
to  the  8002A  and  downloading  either  source  program  or  source  code. 
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This  is  particularly  useful  when  high-level  language  support  is 
separately  available,  as  is  the  case  on  the  MITRE  TSO  system. 

In  summary,  the  8002A  is  a  complete  design  tool  for  software 
development  to  eventual  software/hardware  integration.  Its  powerful 
operating  system  software,  TEKDOS ,  performs  all  utility  routines, 
maintains  the  debugging  system,  provides  emulation  support  routines, 
and  controls  the  PROM  programmer.  The  8002A  can  support  a  variety 
of  currently  available  8-bit  and  16-bit  microprocessors  and  offers 
full  prototype  test  and  emulation  capability  at  three  progressive 
levels . 
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SECTION  7 


CONCLUS IONS/RECOMMENDATIONS 


The  results  of  the  improved  polling  project  described  lead  to  the 
following  conclusions  and  recommendations: 

•  Microcomputer  interfacing  techniques  offer  a  powerful  technique 
for  simulating  new  AFSATCOM  satellite  terminal  polling  perfor¬ 
mance  capab i 1 it ies . 

•  This  successful  microcomputer  application  was  attributable  to 
availability  and  acquisition  (where  necessary)  of  comprehensive 
computer  hardware  facilities  and  high-level  language  software 
tools  designed  to  support  personnel  having  little  or  no  back¬ 
ground  in  microprocessor-based  techniques.  Without  these  facil¬ 
ities  and  tools  several  additional  personnel,  particularly  ex¬ 
perienced  programmers,  would  have  been  required. 

•  Polling  improvements  using  existing  AFSATCOM  terminal  interfaces 
via  MPU  software-only  changes  appear  to  offer  significant  new  en¬ 
hancements  to  a  large  segment  of  the  AFSATCOM  user  community. 

•  Providing  an  on-line  access  to  demonstrate  these  potential  capa¬ 
bilities  'to  AFSATCOM  users  without  the  need  to  modify  either 
AFSATCOM  hardware  or  software  has  proven  to  be  cost-effective. 
This  concept  should  be  pursued  in  accordance  with  the  follow-on 
demonstration  objectives/plans  described  below. 

•  The  microcomputer  concept  and  approach  described  appears  to  also 
lend  itself  to  other  similar  applications.  The  fully  established 
facilities  and  proven  software  support  tools  for  AFSATCOM  at 
MITRE- Bedford  should  he  used  in  the  assessment  of  future 
terminal  upgrades. 

•  The  feasibility  of  serially  adding  microcomputer  hardware  to  an 
existing  AFSATCOM  terminal  for  achieving  growth  capability  has 
been  demonstrated.  With  further  development  and  suitable  quali¬ 
fication  of  this  additional  hardware,  modifying  existing  MPU 
software  may  be  unnecessary. 

The  microcomputer  system  as  presently  configured  is  capable  of 
operator  interface  via  the  RS-232  serial  I/O  port  of  its  internal 
SBC  80/10  computer.  Using  this  port,  a  Texas  Instruments  Model  765 
Intelligent  Terminal  and  a  Lear  Siegler  ADM-3A  cathode  ray  tube 


(CRT)  terminal  were  successfully  interfaced,  both  locally  and  over 
telephone  landlines,  using  a  Bell  103J  modem.  Thus,  a  remotable  I/O 
capability  has  been  provided  with  commercial  off-the-shelf  hardware. 

The  use  of  such  a  remoting  capability  makes  future  demonstration 
testing  of  polling  improvements  possible  from  any  location  having 
access  to  a  telephone  landline  circuit  and  avoids  the  need  to 
physically  relocate  the  breadboard  microcomputer  from  its  interface 
at  MITRE-Bedford  to  its  collocated  AFSATCOM  Type  12  CP  terminal. 

Specific  follow-on  demonstration  and  evaluation  objectives  are 
derived  from  key  issues  related  to  incorporating  polling 
improvements  into  the  AFSATCOM  System.  Some  of  these  objectives 
are : 

•  Evaluate  the  operational  suitability  of  improved  polling 
capabi 1  it ies . 

•  Evaluate  the  enhancements  resulting  from  improved  polling 
in  relation  to  performance  of  the  AFSATCOM  mission. 

•  Test  and  evaluate  the  effectiveness  of  the  improved  polling 
capabilities,  including  the  operator -terminal  interface,  in 
passing  message  traffic  between  terminals  netted  in  various 
poll ing  modes . 

•  Test  and  evaluate  the  adequacy  of  the  microcomputer 
hardware/software  to  support  the  overall  objectives. 

•  Demonstrate  the  potential  role  of  improved  polling  capabil¬ 
ities  to  all  concerned  agencies,  using  hands-on  hardware/ 
software . 

•  Develop  a  successful  test-bed  for  simulating  future  AFSATCOM 
hardware/software  polling  improvements  and  for  investigating 
other  related  areas. 

•  Obtain  data  and  operating  experience  for  an  eventual  upgrade 
of  the  AFSATCOM  operations  concept. 

The  improved  polling  test  objectives  cited  will  be  fulfilled  through 
three  test  categories.  These  are: 

•  Demonstration  of  functional  interface  capabilities 

•  Terminal  performance  tests 

•  Network  tests 


70 


The  first  category  will  show  the  basic  interface  capabilities 
and  inherent  limitations  of  the  as-designed  microcomputer 
harduare/sof tware  in  the  AFSATCOM  environment.  The  second  and  third 
categories  will  quantify  the  effectiveness  and  suitability  of  the 
polling  improvements  at  the  terminal  and  network  levels  and  obtain 
an  estimate  of  actual  polled  network  behavior  in  an  operational 
environment.  This  follow-on  demonstration  can  be  conducted  using 
the  microcomputer  hardware/software  and  the  AFSATCOM  Type  12  CP 
terminal  located  at  MITRE-Bedford .  This  demonstration  can  be 
performed  jointly  by  MITRE  and  Air  Force  personnel. 
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APPENDIX  A 


BASELINE  DESCRIPTION  OF  THE  AFSATCOM  ROLL  CALL  POLLING  MODE 


All  Air  Force  Satellite  Communications  System  (AFSCS)  terminals 
can  provide  two-way  teletypewriter  (TTY)  record  communications  using 
frequency  shift  keying  (FSK)  modulation  at  a  75  bits  per  second  (b/s) 
serial  rate  over  standard  ultra  high  frequency  (UHF)  channels.  The 
Roll  Call  Polling  mode  is  one  of  four  modes  possible  on  the  narrow- 
band  FSK  channels;  the  other  modes  are  Random,  TDM-1,  and  TDM-2. 


A. 1  ROLL  CALL  POLLING  SYSTEM 

Polling  may  be  conducted  on  either  half-duplex  or  full-duplex 
circuits  and  requires  both  a  Net  Control  Station  (NCS)  and  network 
discipline.  The  NCS  transmits  Poll  Call  messages  to  each  pollable 
automatic  send/receive  (ASR)  unit  in  the  network.  Each  ASR,  when 
polled,  is  given  a  30-second  period  of  time  in  which  to  transmit  a 
precomposed  response  to  the  NCS.  When  individual  ASRs  are  in  the 
poll  mode,  they  are  inhibited  from  transmitting  unless  they  are 
polled , 

Roll  Call  Polling  is  initiated  by  a  command  post  (CP)  terminal. 
Force  terminals  reply  through  use  of  a  stored  message  buffer  in  the 
ASR  containing  the  previously  prepared  response.  Poll  inquiry  is 
then  possible  when  the  polling  function  is  selected  at  the  ASR 
device . 

When  the  CP  message-processor  generated  poll  inquiry  is  detected 
at  the  polled  terminal  through  use  of  a  unique  code  sequence 
peculiar  only  to  that  particular  terminal  or  ASR,  the  precomposed 
message  is  transmitted  back  to  the  CP  terminal.  Roll  Call  Polling 
is  structured  so  that  the  CP  NCS  queries  each  terminal  in  the  polling 
net  in  sequence  and  each  polled  terminal  replies  only  upon  detection 
of  its  own  unique  code. 

The  Roll  Call  message  from  the  CP  NCS  is  unclassified  and 
structured  as  shown  in  table  A-l  and  table  A-2. 
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Table  A-l 


Roll  Call  Message  Format 


UUU,  SOH,  N,  kv  A2,  A3,  ETX 

s—  — 

Address  Characters*  where  N  =  variable  mode  character** 


Address  Header 


*  A^  designates  the  particular  super  group. 

A^  and  A^  designate  the  particular  group. 

A^  and  A^  and  A^  designate  the  particular  member. 

**  The  mode  character  found  in  the  message  address  header  is 

signified  by  the  variable  H  representing  address  header  codes. 


Selective  Inquiry  message  structure  is  closely  related  to  Poll 
Call  message  structure  and  differs  only  by  the  change  to  the 
variable  found  in  the  mode  character. 

The  address  portion  of  Selective  Inquiry  messages  is  similar  to 
the  Poll  Call  message  and  consists  of  an  SOH  character  denoting 
start-of-header  and  signifying  that  the  next  four  characters  are  an 
address  header.  The  first  character  following  the  SOH  is  the  mode 
character  whose  codes  are  represented  in  table  A-2.  It  should  be 
noted  that  only  when  the  mode  character  is  0  does  it  denote  that  the 
message  is  a  Poll  Call. 


Table  A-2 

Address  Header  Codes 


N  =  Mode 


Function 


0  Poll  Call 

1  Super  Group  Call 

2  Group  Call  /  Selective  Inquiry  Modes 


3 


Individual  Call 


An  All  Call  mode,  denoted  by  no  address  header,  is  accomplished 
by  omission  of  the  SOH  designator,  the  mode  character,  and  the  three 
address  designation  characters. 

The  three  address  designator  characters  (second,  third,  and 
fourth  characters  following  the  SOH)  use  three  hexadecimal  digits 
(0-9,  A-F)  for  A^,  A^,  and  A^  and  result  in  4096  possible  addresses. 

Each  pollable  device  in  the  network  must  have  a  unique 
programmed  address.  This  address  is  manually  inserted  into  the  ASR 
via  thumbwheels  and  must  be  part  of  the  Poll  Call  message.  If  there 
is  a  match,  the  precomposed  message  will  be  transmitted  as  a  Poll 
Response  message  with  an  unclassified  message  structure,  as  follows: 

UUU,  SOH,  F,  Aj ,  A^,  A^,  message  (if  any),  ETX, 

where  F  is  the  mode  character  indicating  that  the  message  is  a  Poll 
Response. 

If  there  is  no  match,  the  Poll  Response  message  is  not 
transmitted . 


A. 2  CP  TERMINAL  POLLING 

The  message  processor  unit  (MPU)  within  the  CP  terminal  can 
accommodate  four  poll  groups,  with  each  group  containing  up  to  16 
members  for  a  total  of  64  members.  Members  of  any  one  group  are 
restricted  to  the  same  combination  of  second  and  third  (A  and  A^) 
address  characters.  Two  polling  commands  are  defined.  One  command 
causes  all  members  of  a  single  group  to  be  polled.  The  other 
command  causes  all  members  of  all  groups  currently  defined  to  be 
polled . 

Upon  reception  of  a  polling  communications  supervisory  (COMSUP) 
command  from  an  ASR,  the  MPU  transmits  a  poll  request  message 
sequentially  to  each  member  of  the  group,  waiting  30  seconds  between 
requests  for  replies.  A  poll  response  is  timed  out  if  not  received 
in  its  entirety  within  30  seconds.  The  MPU  will  automatically 
change  the  individual  address  character  (A^)  designating  a  member  of 
a  group  with  each  successive  poll  request  message  according  to  the 
stored  poll  table  in  the  MPU.  This  poll  table  can  be  either  entered 
or  changed  by  COMSUP  commands,  which  provide  for  the  dynamic 
definition  and  maintenance  of  up  to  four  concurrent  poll  groups. 

New  groups  can  be  added,  existing  groups  deleted,  or  individual 
members  added  or  deleted  from  existing  groups.  See  table  A-3  for  a 
listing  of  COMSUP  commands  applicable  to  polling. 
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Table  A- 3 


COMSUP  Commands  Used  in  Polling  Operations 

COMSUP  Command  Description 

1)  PATG  gg  ^11  |  a  |  ..j  c  ADD  TO /CREATE  POLL  GROUP 

2-character  group  identifier  where 
all  alphabetic  characters  are  upper 
L  gg  =  case.  Characters  for  "gg"  must  be 
selected  from  the  hexadecimal  group 
0  through  9,  A  through  F. 

Optional  2-character  line  mnemonic 
to  poll  on;  the  line  mnemonic  is 
specified  only  when  defining  a  new 
group. 

Aircraft  identifier  (one  to  eight 
characters  may  be  specified  in  one 
command).  All  alphabetic  characters 
are  upper  case.  Characters  "a"  must 
be  selected  from  the  hexadecimal 
group  p  through  9,  A  through  F. 

DELETE  FROM  POLL  GROUP 

2-character  group  identifier  where 
all  alphabetic  characters  are  upper 
case . 

f  Aircraft  identifier  (one  to  eight 
characters  may  be  specified).  If 
none  is  specified,  the  entire  group 
will  be  deleted.  All  alphabetic 
characters  are  upper  case.  Charact¬ 
ers  for  "a"  must  be  selected  from 
the  hexadecimal  group  0  through  9, 

A  through  9. 

3)  PPLG  gg  c  POLL  GROUP 

2-character  group  identifier  where 
gg  =  all  alphabetic  characters  are  upper 
case. 

A)  PPAG  c  POLL  ALL  GROUPS 
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Table  A- 3  (Continued) 


Notes 

The  group  tables  are  built  and  maintained  dynamically  in 
response  to  operator  commands.  A  new  group  will  be  defined  as  a 
result  of  an  ATG  command  that  calls  out  a  group  not  already  in  the 
tables.  Members  in  a  group  are  identified  in  the  ATG  and  DEL 
commands  by  three  characters;  the  last  two  characters  of  a  group 
member  identifier  are  the  same  as  the  group  identifier.  When  all 
group  tables  are  in  use,  the  form  of  the  command  used  for  defining 
up  to  four  groups  at  any  given  time  will  be  rejected  by  the  MPU. 
Another  form  of  the  command  is  available  for  use  in  subsequently 
adding  additional  members  to  an  existing  group.  Attempts  to  add  a 
member  already  in  the  group  will  cause  the  entire  command  to  be 
rejected . 

For  the  command  used  to  delete  individual  members  from  a 
polling  group,  the  entire  command  is  processed  and  all  identifiers 
are  validated  by  the  MPU  before  the  group  table  entry  is  modified. 
Any  error  detected  will  cause  the  entire  group  to  be  rejected. 
Another  form  of  this  deletion  command  is  available  for  use  in  delet¬ 
ing  an  entire  group  and  releasing  the  associated  table  entry.  It 
should  be  noted  that  the  first  form  of  this  command  can  also  result 
in  the  group  table  entry  being  released  if  all  its  members  are 
released . 


Each  member  is  polled  bv  building  a  Poll  Call  message  containing 
the  group  and  member  identifiers,  then  queuing  the  message  to  the 
MPU  output  line  associated  with  the  group. 

When  the  Poll  Response  message  is  received,  it  is  verified  and 
forwarded  to  a  high  speed  printer  with  the  prefix  POLL  RESPONSE 
RX.  The  next  group  is  then  polled  and  the  process  continues  until 
the  entire  group  has  been  polled.  If  no  response  is  received  from 
a  particular  member  within  30  seconds,  a  print-out  alarm  is  generated 
to  indentify  the  group  member  who  failed  to  respond.  A  received 
response  from  a  terminal  not  polled  (e.g.,  address  of  responding 
terminal  does  not  match  that  in  the  poll  request  message)  results  in 
the  message  being  intercepted,  forwarded  for  printout  on  the  high 
speed  printer,  and  a  POLL  RESPONSE  ER  interrupt  message  being 
printed  out  along  with  the  Poll  Response.  See  table  A-4  for  a 
description  of  the  MPU  Status/Alarm  and  Intercept  Messages  for 
polling. 
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Table  A-4 


MPU  Status/Alarm  and  Intercept  Messages 


Condition 


1)  GROUP  XX  POLL  COMPLETE 

XX  2  hexadecimal  digits, 
a  group  identifier. 

2)  ALL  CROUP  POLL  COMPLETE 

Processor  has  completed 
polling  all  previously 
defined  groups. 

3)  NO  RESPONSE  TO  POLL 

A  time-out  has  occurred  on 
a  particular  member. 

Reason  for  Intercept 

4)  Poll  Response  from 
station  not  polled 

5)  Poll  Response  received 


Status /Alarm  Message 
PLG  XX  COM 


PAG  COM 


POLL  RSP  T/0 


line rcept  Message 
POLL  RESPONSE  EP 

POLL  RESPONSE  RX 


Note : 

MPU-generated  Status/Alarm  messages  are  prefixed  with  a  date¬ 
time  header  and  a  line  identification  mnemonic  which  indicates  the 
source  of  the  message. 
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A. 3  FORCE  TERMINAL  POLLING 


As  a  member  of  a  poll,  the  Force  terminal  pollee  must  dial  his 
proper  address  into  the  ASR  thumbwheels,  enable  the  address 
recognition  switch  on  the  ASR,  and  press  the  poll  XMT  button  once. 
Whenever  the  ASR  receives  a  message  header  of  the  format  following 
the  UUU  consisting  of: 

SOH,  p,  A1#  A2,  A3 
where 

A^ ,  A^,  A^  is  the  ASR  address, 

the  ASR  will  automatically  transmit  whatever  is  in  ASR  storage  up  to 
the  message  length  selected,  each  time  the  ASR  is  polled.  If  a 
change  to  the  Poll  Response  message  is  desired,  the  operator  must 
press  the  compose  and  edit  button  and  make  the  changes,  thereby 
taking  the  particular  ASR  out  of  the  automatic  poll  response  mode. 
Thus,  poll  responses  are  inhibited  while  the  Poll  Response  messages 
are  either  updated  or  revised.  After  update,  the  poll  XMT  button 
must  be  depressed  again  to  return  to  the  poll.  Both  Poll  Call  and 
Poll  Response  messages  should  print  out  on  the  pollee's  ASR.  In 
addition,  anv  text  attached  to  the  Poll  Call  message  will  not  be 
printed  out  by  the  pollee’s  ASR,  regardless  of  model  ASR  (i.e., 

120A;  120B:  129;  Mini-I/O).  In  actual  operation  during  an 
automatic  poll  request,  the  model  120A  ASR  prints  nothing;  models 
120B,  129,  and  the  Mini-I/O  print  only  the  poll  message  (five 
characters  described  above)  along  with  the  ETX  (whenever  it  occurs). 


A. 4  OTHER  MPU-EQUIPPED  TERMINAL  POLLING 

An  MPU-eauipped  terminal  can  also  be  polled  as  described  above 
but  is  limited  to  a  shorter  Poll  Response  message  because  of  the 
message  transfer  technique  inherent  in  the  MPU-equipped  terminal. 
Since  data  are  transferred  from  the  modem  to  ASR  on  a  message-by¬ 
message  basis,  the  complete  Poll  Response  message  is  transferred 
into  the  processor  from  the  ASR  before  going  to  the  modem.  To  stay 
within  the  CP  processor  poll-out  time  of  30  seconds,  the  maximum 
length  of  a  Poll  Response  message  from  a  processor  equipped  terminal 
is  130  characters. 


APPENDIX  B 

PL/M-80  SOURCE  CODE 


/♦ 

Hi. DATA  -  .ICO  *:  VERSION  1  -  10  JULY 

60 

•/ 

00000500 

/• 

hfcH.DAlA  *  r.Cb  1;  VERSION  3-10  JAR. 

60 

*/ 

0000  1000 

/••/ 

00002000 

/• 

1  ft  P ROVED  POLLING  COBSUP  COftHANDS 

*/ 

00003000 

/♦ 

ENAciE  CHECKIN  BODE 

ZNR ! SAbC  1 X X  X 

*/ 

00004000 

/  * 

USABLE  CHECMR  ftCDE 

ZNR ! SABCOXXX 

*/ 

00005000 

/• 

icl  ! A  HIE  CHECK  I R 

ZNR 

!  CAbCAAA 1 

*/ 

OOOObOOO 

/• 

RC1  TAoLE  CHECKIN 

ZNR 

!  DABCBBB 1 

*/ 

00007000 

NCI  Ik  bit  CHECKIN 

ZNR 

!  EABCCCCO 

•/ 

ooooeooo 

uCi  *  A  o  L  E  CHECK  IN 

ZNR 

! b AbCDD 1 

•/ 

00  L‘ 09000 

/• 

PRIORITY  TABLE  LOAD 

ZNR 

!  1 A  L  C  .  .  .  . 

00010000 

/* 

ROlfiNt  TAbLE  LOAD 

ZNR 

!  2  A  b  C  .  .  .  . 

♦/ 

000  1  1000 

/• 

No-fhAiIIC  TAbLE  LOAD 

ZNh 

!  3  A  B  C  .  .  .  . 

•/ 

000  1  2000 

/* 

.ISALLE  CCRSUF  H  S  G  PRINTOUT 

Z  NH 

•  4AdC0 

•/ 

000  1  3  00  w 

/* 

Lb  kc  It  COftSUP  ft.SG  PRINTOUT 

ZNR 

!  4  A  b  C  1 

•/ 

00C  14000 

/* 

kE-J  U7IALJZE  PCI  TAbLE 

ZNH 

!  FAbC 

•/ 

O00  1  5000 

/* 

RE-I  M71ALIZE  RCI  T  a  b  l  e 

ZNR 

!  G  A  i>C 

•/ 

000  1  bGOO 

/  • 

p.e-:miial:ze  nci  table 

ZNR 

!  HAbC 

000  1  7000 

/ * 

k  i  - 1  NiriALlZE  OCI  TABLE 

Z  NR 

!  AABC 

•/ 

OoG  1  bOQO 

/• 

CHECKIN  TAbLE  TRANSFER 

ZNR 

! TAbCXXYZ 

•/ 

000  19CG0 

/  * 

POt-TUt  CHECKIN  TAbLE  TRAN  SEEP 

ZNH 

! TAbCYXY  Z 

•/ 

00020000 

/• 

NO-lknMIC  CHECKIN  TAbLE  ThAnSFER 

ZNH 

! TAbCZX Y  Z 

•/ 

000*  1000 

/* 

i wiL  TAE  LE  TRAN  SFER 

ZNR 

!  IABCTXY  Z 

•/ 

00022000 

/• 

iUILL  o  PRINT  CUT  POLL  TAbLE 

ZNH 

!  ft  A  b  0 

•/ 

00023000 

/'  * 

PULI  TAbLE  FEIN  TO IT  (LOCAL  ONLY) 

ZNH 

! UAfcCZXYZL 

*/ 

000*4000 

/  * 

» 0  *L  TAbLE  PRINTOUT  (REBOTE  ALL-CALL) 

ZNR 

! UAbCZXY  ZR 

*/ 

000*  5000 

/* 

iRIOPITY  TABLE  PRINTOUT 

ZNR 

! UAbCPXYZ 

•/ 

00026000 

/* 

rucr 1NE  TArLE  L RINTOUT 

ZNR 

! UABCRXYZ 

000*  7000 

/* 

NU-TPAFPIC  TAbLE  PRINTOUT 

ZNR 

! UABCiXY  Z 

•/ 

0  0  0  2  B  00  0 

/* 

Chi  J »  TAbLI  PRINTOUT 

ZNH 

! UAbCOXY Z 

•/ 

000*9000 

/* 

Pi/**.  /NAME  (SINGLE  POLL) 

ZNR 

•  JAbC  IS 

•/ 

00030000 

/  * 

POLL  ENABLE  (ftl  L  T  I  P  L  E  POLL) 

ZNR 

!  J  A  b  c  1  ft 

*/ 

00031000 

/  * 

PotL  LI5ABLE  (SINGLE) 

ZNh 

!  JAbCOS 

•/ 

00032000 

/• 

iOiw  INTERRUPT  ENABLE  (NON-T^f) 

ZNR 

•  LAbC  10 

♦/ 

00C  33000 

/  • 

rot*.  *NTtRRUrT  ENABLE  (TDK  ) 

ZNR 

!  LAbCO  1 

•/ 

00034000 

/• 

PULL  INTERRUPT  ENABLE  (TLB  6  NON-TUB) 

ZNR 

!  LAbC  11 

*/ 

00035000 

/• 

POLL  INTERRUPT  DISAbLE  (TLB  b  NON-TCT) 

ZNR 

!  LAbCOO 

•/ 

00036000 

/  * 

PRIORITY  ChECKJN  TABLE  DELETION 

ZNH 

!  NAbCPO 1 

•/ 

0UC37000 

/• 

hOLtiNt  CHECKIN  TAbLE  TEEET I  ^  N 

ZNR 

!  NAbCRU  1 

•/ 

000 jfcOOO 

/• 

Nw-TRAEPIC  Cr.ECKIN  TAbLE  DELETION 

ZNH 

!  NAECNO 1 

*/ 

000 39000 

/  * 

GftCUp  whECKlN  TABLE  DELETION 

ZNR 

! NAbCGO 1 

•/ 

00040000 

/  •  I-  }  PChTb  At  n  b  POLL  SLOT  RLASSICSrENT 

ZNR 

!  OAbC . 

....  •/ 

0004  1000 

/• 

Ei  AC  k  N Ab  L  l  (NCR -TDK) 

ZNH 

!  PAbC  1 

00042000 

/• 

EUAC  USABLE  (NON-TDK} 

ZNH 

!  PAbCO 

•/ 

00043000 

/• 

BESSAGE  TRANSfiSSION  DELAY  (NCN-T^B) 

ZNR 

!  KAbC  10 

♦/ 

00044000 

/  * 

ibkcit  ALL  TYPES  OF  BESSAGtS 

ZNR 

!  V  A  r  CO 

*/ 

00045000 

/• 

DISREGARD  NON-COBSUP  ftSGS  *hth  POLLING 

ZNR 

!  V  A  b  C  1 

•/ 

00046000 

/* 

LlirkOARL  ALL  NON -COBS  UP  H 1SSAGES 

ZNR 

!  VAbC2 

•/ 

0 0047000 

/• 

rRtORA-  RESTART  (Ri-IPL  ft I ^ R l P ROC E j SO R ) 

ZNR 

!  RAbC 

00046000 

/* 

RS.i.  .NTERFACl  ENAbLE  (1) /l ISABLE  (0) 

ZNR 

!  QhbC  1 

♦/ 

00049000 

r.ICuO#  HOC  E!  SCR  ADDRESS  CHANGE 

ZNh 

!  1  A  b  C  C  A  b 

•/ 

00050000 

/•V 

0005  1000 

/♦  V 

00052000 

/• 

notes  V 

00053000 

/♦ 

1)  ALL  CoftSUP  ft.SGS  REQUIRE  "ah!"  FOLLONEL 

.  BY 

AT  LEAST 

*/ 

00  C  54  000 

/• 

ONE  fJDE  CHARACTER  I BBED1 AT  E  EY  AFTER 

ThE  " 

1  H 

*/ 

00055000 

/• 

*)  T  *»0  ETX’S  ARE  PART  OF  THE  COftSUP  ft  SG 

SUFFIX  . 

*/ 

00  C  5  6  000 

/• 

J)  "Ht"  IS  INDICATIVE  OP  A  h  E  X 1DECI ft  AL 

DESTINATION  ADDRESS  V 

00057000 

/• 

**)  " ABC”  IS  INDICATIVE  CF  ThL  INITIALIZED 

ADDRESS  OF  THE  V 

00056000 

ft  It  KGPRuC  ESSOK  ;  THIS  IS  A  CCftSUP  VARIABLE  IN  ITSELF. 


INPUT-/  OUTPUT  DESCRIPTIONS 


00059000 
00060000 
000b  1000 
00002000 


HSCl&INQ  PAOS  BUNK-HOT  TILMKD 


4.  -m  « 


/♦ 

/* 

/• 

/* 

/* 

/* 

/* 

/* 

/• 

/• 

/♦ 

/♦V 

/• 

/* 

/* 

/♦V 

/• 

/* 

/• 

/• 

/* 

/• 

/* 

/* 

/**/ 

/♦ 

/• 

/♦ 

/• 

/• 

/•*/ 

/•*/ 

/«••/ 


X  M  p  U  T  1  * 
INPUT  101 
INPUT  2  • 
INPUT  3  • 
INPUT  103 
INPUT  5  * 
INPUT  105 
1KPUT  <7> 


CHAR  BEADY  FRCH  HODEH  */ 

•  CHAR  READY  f BOH  HPU  */ 

CONTI A  UE  PBOGRAfl  */ 

char  from  modem  */ 

■  CHAR  F R OH  HPU  */ 

SPACE  FOR  OUTPUT  TO  HPU  ♦/ 

-  SPACE  FOB  OITPUT  TO  HODEH  */ 

230  (E6H)  *  CLOCK  TOR  MICROPROCESSOR  */ 

INPUT  <  10  7  >  :  229  (E5  H)  «  CLOCK  F  BOH  HODEH  •  / 

INPUT  <9> :  228  C  H)  -  ECO  SLOT  INPUTS  */ 

V 

b  2  5  3  PROGRAMMABLE  COUNTER  INPUT/OUTPUT  */ 

)ITU1  220  (DC  H)  «  LOAD/RLAD  COUNTER  NO*  0  (82S3)  •/ 

OUTPUT  222  (D£H)  ■  LCAD/READ  COUNTER  NO.  2  (6253)  */ 

OUTPUT  223  (DFH)  «  WRITE  MODE  w 0 Rb/ NO-OP  (  3 - ST  AT E )  */ 

OUTPUT  1  -  DATA  TO  HPU  */ 

OUTPUT  101  -  DATA  TO  MODEM  V 

OUTPUT  2  «  DIAGNOSTICS  »/ 

OUTPUT  <>4>;  23  3  ( E  9  H )  *  PAhITY  DISABLE  TO  MODEM  ♦/ 

AND  I/O  CHIP  RESET  V 

OUTPUT  <6  >  :  234  (EAH )  *  KX  ENABLE  TO  HPU  •/ 

OUTFUT  <10o>:  235  (Efch)  *  I/O  TX  ENABLE  TO  HODEH 
A  N  C  B  X  CLOCK  ENABLE  TO  HPU 

RS232  INPUT/OUTiUT 

OUTPUT  2  37  (EDH)  •  CCMROL  -ORD  (CPU  TO  USART) 

OUTPUT  236  (ECH)  *  LATA  (CPU  TO  USART) 

input  <37  (Edh)  »  status  word  (Usart  to  cpu) 

INPUT  <36  (ECh)  *  DATA  (USAnT  TO  CPU) 


00063000 
00064000 
00065000 
00066000 
00067000 
00070000 
00C71000 
00072000 
00073000 
00074000 
00075000 
00076000 
00077000 
000770 1U 
00078000 
00079000 
OOCfaOGQO 
000b  1000 
00  Q  6  2000 
00C83000 
00084000 
00  OP  500 0 
00086000 
V0008700Q 
•/  00068000 
00069000 
•/  00090000 
•/  00091000 
•/  00092000 
•/  00093000 
*/  00094000 
00095000 
00096000 
00097000 


/* 

MEMORY  AlDhLsSES  FUR  1/C  ♦  / 

00096000 

/**/ 

QO  099000 

/* 

INPUT  UADh  •  UU  COh  •/ 

00  100000 

/* 

INPUT  3 1  A  DR  -  OfFDCrt  */ 

00  10  1000 

/• 

OUTPUT  ItADR  *  OFImCR  •/ 

00  102000 

/* 

INPUT  10 1JADN  •  OftvCH  */ 

00 103000 

/* 

INPUT 1033AOR  •  C  P l 4 CH  */ 

00  104000 

/* 

INPUT  1 0  51 A  DR  *  CfFUCH  V 

00105000 

/* 

OUTPUT  1C  1$ ADR  -  4 f  f  40 H  */ 

00  106000 

/• 

1NPUTSJADR  ■  OPEUOH  */ 

00 107000 

/**/ 

00  108000 

/**/ 

00  109000 

/**/ 

00110000 

/*+/ 

00111000 

DECLARE 

(PRCUhAMSSTAP T .  INITIALS  MSG)  LABEL; 

00 112000 

/*  h  S<  3 

2  I/O  CHIP  INITIALIZATION  */ 

00113000 

/•  MODE  CONTROL  */ 

00  114000 

PROGRAMS  ST  ART  :  OUTPUT(237)  -  79h  ; 

00115000 

/•  79h 

«  C111  ICC  133 ;  01-1  STOP  bIT/1«£YEN  PAhITY/  IMPARITY 

ENABLE  ♦/ 

00  115010 

/• 

10-7  BIT  CHARACTER/01- IX  BAUD  RATE  FACTOR  4/ 

00115020 

/*  COMMAND  INSTRUCTION  -  RESET  ♦/ 

00  116000 

OUTPUT  (2  37)  ■  40H; 

00117000 

/*  MODE  INSTRUCTION  •/ 

00116000 

OUTPUT  (237)  »  79H; 

00119000 

/*  COMMAND  INSTRUCTION  *  INITIALIZATION  */ 

00120000 

OUTPUT  (2  37)  -  1 7 H  ; 

00  12  1000 

/*  1 7H 

-  000  1  01  118;  0-ENTER  HUNl  HODE/O-I NT l RN A  L  RESET/ 

*/ 

00121010 

/♦ 

C-RTS/ 1-ERROR  RESET/C-SENt  BREAK  CHAR/1-RX  ENABLE 

V 

0Q121Q20 

/* 

1*DTR  (NOT)  OUTPUT  FORCED  TO  ZERO/  1-TX  ENABLE 

*/ 

00121030 

82 


/*♦/ 

/•  CGNTrCL  WORD  I N  IT  I  A  11  Ik  TIO  N  (BiSS  •  1  CONTROL  ORLY)  ♦/ 

CU  TPUT  (2  J  1)  •  9BH  ; 

OUTPUT  (2  35)  -  90H; 

OUTPUT  (233)  *  10  H  ; 

OUTPUT  (233)  «  OH; 

OUTPUT  (23  3)  *  10H; 

/••/ 

/*  CONTROL  REGISTER  I  *  IT  I A  LI  Z  A  T I C  t>  */ 

LECLARE  nPUilOlCTL  UPOINTEF  ADDRESS  INITIAL  (OFFOOH); 

DECLARE  PPUSIOSCTL1  BASED  HPUSIOJCTEIS POINTER  BYTE; 
HPUflQSCTLISPOINTER  *  GfFCOH; 

HFUilOSCTLl  *  0  3  H  XOR  CFFH; 

✓  *  V 

DECLARE  PPUJ I  OS C T L 2 J P 01 N T£ R  ADDRESS  INITIAL  (GFFUOH); 

DECLARE  PPUSIGSCT12  BASED  H  P  U  $  10  S  C 1 12  S  POI  NT  E  R  BYTE; 

HE U| I0ICTL2JP0INTER  -  0  F  F  4  0  H  ; 

HPUSI0SCTL2  -  2FH  XOR  OF  E  K ; 

✓  •*/ 

PlEUilOSCTLl  *  43H  XOR  CFFh; 
flPUSlOSCTL*;  -  03  H  XOR  OF  F  h  ; 

PPJSIOSCTLI  *  OCOH  XOR  oeih; 

/••/ 

/*♦/ 

DECLARE  rOLErti 10 JCTl 1SP0INTER  ALDRISS  INITIAL  (OFEOOH); 

LECLARE  flODin JlOiCTL  1  BASED  HOD l fl 1 1 C $ C T L  1  SP 0 1 N T EH  BYTE; 

PtDEPSlCSCT L UPOI NTER  *  OIEOOH; 

PIDEKIICSCI  LI  *  0  3  h  XOR  OFTH; 

/••/ 

DECLARE  PU  l  E?1S  IO*CTL*  S  POINTER  ADDRESS  INITIAL  (CFEhOH); 

LECLARE  KOLEflJ  IOSCIL*  bASED  HODE  P  i  1  CS  C  TL2  SPO  I N  T  E  H  BYTE; 

PC  CEflSlCSCT  L2  JPOINTER  =  CFEUOh; 

PCDEflllOiCl  L2  -  2  f  H  XOR  olFH; 

/••/ 

RUinilClCILI  «  <4  3  H  XOR  CFFH; 

PCDEMilCiCTl*  *  0  3  H  X  0  n  ,»FH; 

.ICLlflJlCKTLl  -  OCOH  XCR  CFFH; 

/••/ 

/•  V 

/•  1  MRUCTICN  FOR  DIVIDE  BY  1240  ( J  C  0  HZ)  ON  16-blT  COUNTER  •  2  •/ 

C  L  I  P  U  T  (223)  -  QB6H  ; 

OUTPUT  (222)  -  0D8H  ; 

cl TPUT  (2  22)  •  04  H  ; 

/*  INSTRUCTION  FOR  IIVIDE  EY  49c*  (75  rtL)  ON  COUNTER  •  0  •/ 

OUTPUT  ( *  2  3)  *  jfch  ; 

OUTPUT  (  *  2  G)  *  6  2  h  ; 

OUTPUT  ( * 2 C )  *  13H  ; 

/*  ThlSE  GIVE  75  l  300  hZ  CLOCKS  F  RCJ1  6.7C  HHZ  ON-BOARD  X  T  A  L  •/ 

/*  V 

LECLARE  hb*J*$FLAG  b  Y  T I  INITIAL  (C)  ; 

RS232JFLAG  »  0; 

DECLARE  (R S* 32 i 5 PAC EJ TEST ,  FS232 SCI 1CH AM ,  R S 2 J2 S I N PUT  1 , 

R  S  *  3  2  $G  C  1  ,  R  S  23  2$  HOD  ESS  El)  LABEL; 

DECLARE  (ALR1,  A  DR  2  ,  A  DR  3  )  BYTE  INITIAL  ( • A  '  ,  •  B  •  ,  '  C  • )  ; 

ALR  1  -  •  A  *  ; 

ADR 2  •  • b  *  ; 

ALR3  •  *  C  •  ; 

DECLARE ( P  0 LLSSLGT  1  h  ,  POLLS  SLOT*  H  ,  r  C  L  L IS  LOT  3  H ,  POLLS5LOT4H, 

PoLLiSLCTbll,  POLLS  SL0T6  H  §  POLciSlOTlL,  P0LLSSL0T2L  ,  PO  LLSSLOT  3  L  * 
POLLS SL0T4L#  PCLLSSL0T5L  ,  POL  L I S  LOTb  L ,  TX IS  LOTS  IN  I TI A LH , 

T  XJSLCTUNITI  AIL,  TDHSPOLLSTX  IS  LCTSINI  TI  A  L)  BYTE 

INITIAL  1,,*9,,*7*,'5',  *3*,  *  1  •  ,  *  0  '  ,  *  1  • 


00  122000 
00123000 
00124000 
00  12S000 
00126000 
00127000 
00  126000 
00129000 
00130000 
00131000 
00  132000 
00  133000 
00  134000 
00  135000 
00136000 
00137000 
00136000 
00  139000 
00  140000 
00  14  1000 
00  142000 
00  14  3000 
00  144000 
00  145000 
00  146000 
00  14  7000 
00 luoOOO 
00 14900C 
00 150000 
00 15 1000 
00 152000 
00 153000 
00 154000 
00 155000 
00 156000 
00 157000 
00 156000 
00 159000 
00  H  OUOO 
00  U 1000 
00 162000 
00 163000 
00 164000 
00  1640  10 
00 164020 
00 164030 
00 164040 
00 165000 
00 166000 
00 167000 
00 166000 
00 169000 
00 170000 
00171000 
00 172000 
00173000 
00 174000 
00 175000 
00176000 
00 177000 
00176000 
00 179000 
1) ; 00 160000 


83 


POLLiSLOT  1H  •  •  1* 

POlliSLOTU  -  •  1* 

PO  L  LI S LOT  2  H  *  • 1 • 

PO  L D$S  LOT  2 L  *  '9* 

FOLLSSLOT3H  «  •*• 
k  0 i L I S  LOT  3  L  *  *7' 
tOLLJSLOTUH  -  *3* 

FO  L  Li S  LOT  4  L  *  *5* 

FOLLRSLOT5H  *  *4* 

FOLLSSLOT5L  *  *3* 

FO  l  Li  S  LQ  T6  H  -  •  5  1 

PO  LUSLOT6L  *  *  1  • 

IX  iSLOTlINITI  ALH  »  ‘O'; 

TX  JSLOTIINITIALL  *  •  1'; 

JDfliPODLITXiSLOTlI NITIAL  *  4; 

DECLARE  (C  S  3  ,  CS4)  b  Y  T  E  ; 

DECLARE  (PCLDlXBlT,  F  0  L  UftOD  ElER  RO  h  ,  POLlSO  V  ERSTEST  #  XX,  YY,  VU,  2Z, 
REFCLLlTEST  ,  PC L LlBSG SCOflP L LI  £  ,  0 U TT AB L E  1  $ ST A TU S ST ES T . 

POLLI NO JBOCESTEST .  AU  TO  S  PO  L  Li  R  E  ST  A  RT  ,  h ON STDB IPG LL ,  £D  ACS  flO  l  IS  SI  T  , 
TDHSPOLL.  PCLLSTABLESTX  ,  P 0 L L II  A T EH R UP T , R E Tfi A  NS rt I Tl F LAGlS ET )  LABEL 

DECLARE  FO  LLiHSGlCOUNT  ADDRESS  IMTIAL(O); 

FULllMSCSCOUNT  *  0 ; 

DECLARE  NTDBlECACSTAtLL (7)  BYTE; 

DECLARE  (tCAClFLAC,  REPOLLlFLAGlCOUNT)  BYTE  INITIAL  (0,0); 

EDACSF1AG  «  0; 

REPOUlFLAGSCOUNT  -  0; 

DECLARE  (C  C  i  PR  ESENT  ,  CCUPRESENT)  ALDRESS  INITIAL  (0,0); 

CORRESENI  *  0; 

CC  lx  PRESENT  *  0 ; 

DECLARE  l  UOLL101,  GC  1  ,  OPOLUC1,  1PQLL1011,  NON  S  TDH  iD  t  L  A  Y  1  ,  POLLSflODi 
DELAY IRUUT 1 Nl  1  ,  EATSnSGlSET  ,  HCDEBSOUTPUI JCOflPOS E  1 , 

LCT1,  Gt I f  L AG  1  ,  ECBTlSTl,  SPACETLST1,  N 0  NIT DB 1 D E L A Y I S ET ,  CHAR4T1, 

COHSUPLGAul,  CUTCNAR1,  NOCOB SO P L 0 A L  1  ,  RXlBUSY IOVERRI DE  1 , 2POLL 11)  LABEL 

LtCLAKE  (  ShIFTDGwK.  S  H I  FT  DO  N  N  1  ,  LC  ADA  DR ,  INDLOAD,  ADRERRORl  )  LABEL  ; 

LECLARE  EATiHSGlFLAG  1  BYTE  I  N ITI A  L  (C  1H)  ; 

EATIB Sell  LAG  1  ■  0  1 « ; 

LtCLARl  (CLM,  C  LK  P  1 ,  DELAY  1 ,  CLK-.,  CLKP2,  C  LK  3 , 

CLKFj  )  HIE  INITIAL  (0  ,  0  ,  0 , 0  ,  C  ,  u  ,0)  ; 

DECLARE  (UKM1,  C  Lh  C  N  T  2  ,  C  LKCN 1  3}  ACDhESS  INITIAL  (0,0,0); 

C  LA  1  •  0  ; 

CLAP  1  »  0 ; 

C  L  A  C  N  T  1  *  c; 

L  E  LA Y  1  *  0  ; 

CIA*  •  0 ; 

C  L  K  k  2  «  0  ; 

C  LKC  N T  2  ■  l  ; 

CLK 3  »  0; 

C  LKk  3  »  0  ; 

CLKCNT3  -  D; 

LECLARE  (BUM ER f DELAY  1  ,  NONl TDfll "So lul L A Y  1)  ALDRESS  INITIAL  (40,3OOH); 

tiFF tRlDE LA Y  1  -  46; 

NCNITDBSKSGSDELA Y  1  «  3gCp; 

DECLARE  (E L AC J ROUTINE, OUTPUT JCOH FOS  E, PTTi LOAD  1 , DELAY JCAL, 

AT74LCAL1,  NTTILCAD  1 ,  TTlLCALlENDI)  LAblL; 

LECLARE  (  7  C  LK  ,  TtLKF,  TC  LK  C  NT)  PYLE  1  M  T I A  L  (c  ,  0 , 0 )  ; 

1C  IK  *  0  ; 

TCLKk  -  0; 

TCLKCNT  *  0; 

LECLARE  (r.  LGiCV  ERiDELAY  ,  TC  LK  1 ,  lCLKpl,  TCLKCnTI)  BYTE 
initial  (64,  t ,  o ,  o>  ; 

KSGiOVERJ DELAY  *  60H; 

TC  LK  1  •  0; 

T CLK pi  •  C; 


00161000 
00182000 
00  163000 
00  164000 
00 18  5000 
00  186000 
00187000 
00188000 
00189000 
00  190000 
00  191000 
00192000 
00  193000 
00194000 
00  195000 
00  196000 
00  197000 
00  198000 
00  199000 
;  00200000 
0020  1000 
00202000 
00203000 
00  20m  000 
00205000 
00206000 
00207000 
00206000 
00209000 
,002 10000 
002  1  1000 
002 12000 
;002 13000 
00  2  14000 
00* 15000 
00216000 
00217000 
00216000 
002 19000 
00*20000 
0022  1000 
00222000 
00223000 
00*24000 
00225000 
00*26000 
00227000 
00228000 
00229000 
00230000 
0023  1000 
00232000 
00233000 
00*34000 
00235000 
002 J6000 
00237000 
00236000 
00239000 
00240000 
0024  1000 
00242000 
00243000 
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T  C  L  KC  N  T 1  -  0; 

DECLARE  (R ETHANSBITSFLAG,  TDnSPO  LUlXSSLOT)  BYTE  INITIAL  (0#  1)  ; 
RETRANSBITSFLAG  *  0; 

ICrtSFOllSTXSSLOT  ■  1; 

DECLARE  (SLOTH, SL01L, SLOT, SLOTSCGUNT)  BYTE  INITIAL  (0,0, 0,0); 

SLOTH  •  0; 

6  LOT  L  *  0; 

SLOl  »  0; 

SLOT SC  OU  NT  *  0; 

DECLARE  (NIDBCELAYH,  NTDBDELAYL)  ALtRESS  IN  I T1 A L  (0 , 0 )  ; 

N  I  DHDEL  AY  H  *  0; 

NTDBDELAYL  *  0; 

DECLARE  SLCTIGUAHDSTI BE  ADDRESS  I  N  1  T I  A  L  ( 2  OH )  ; 

SLGTIGUARDJT IBE  *  20H; 

DECLARt  (T  LB  1 1  L  A G  ,  POLLSFLAG,  A  U  TO  S  REP 0  L  L  $F  L  AG  )  BYTE  INITIAL  (*  O'  ,  0, 
TCrlELAG  ■  *0'; 

PULI  FLAG  •  0; 

AUiOtfiEPOLLJFLAG  -  0; 

DECLAhE  (PCLLITABLEITXIFLAG ,  NT D HlP DLLS IN TE R HU PTlF LAG , 

TDRi PCL LJ I  NT i RRUFTSFLAG)  BYTE  INITIAL  (0,0,0)  ; 

POLLS  TAEL  tITXf } LAG  *  0 ; 

NTDn4POLL$lNTEhRUPT$FLAC  =•  0; 

TLP.H  OLLS  INTERRUPTS  FLAG  *  C; 

DECLARE  (  CS  1  ,  ChAR  1 ,  OUT  1  , 

NAXT1AG9,  SPACE  1 ,  LINE COUNT)  BYTE; 

G  0  7  1  *  0  ; 

» A1T1NG  1*0; 

DECLARE  CrtARSTOHE  1  (2000)  BYTE; 

DECLARE  RSGCOINT  1  (  150)  ADDRESS; 

DECLARE  ciUTTAbLE  1  (2C00)  BYTE; 

LECLARE  (  II,  TCI,  OUTCGUNT  1  ,CC  1  ,  J)  ADDRESS  INITIAL  (0,0,  1,0,0); 

J  *  C  ; 

I  1  -  C  ; 

TCI  =  0  ; 

OUTCGUNT  1*1; 

CC  1  •  0  ; 

DECLARE  CS4LATASPCINTER  ADDRESS  I M T I  A L  ( 0 FF 0  Oh )  ; 

DECLARE  CSflATA  BASED  C S ID A T A S PC  I N T E R  BYTE; 

CSSDATA SFGINTER  -  0FF00H; 

DECLAhE  IN PUT3SC AT  ASF OINTER  ADDRESS  INITIAL  (OFF40H); 

DECLARE  INRUT3NDATA  EASED  I N PUT  3  I D A  7 A $ POI NT I R  BYTE; 

1 NFUT 3SDATAJ POINTER  *  0FF40H; 

DECLARE  IN POTSSDATAJf 01 NTER  ADDRESS  INITIA1  (OFEOOH); 

DECLARE  1NFUT5SLATA  bASED  I N PU T5 i D A T A $ POI NTE R  BYTE; 

IN F 0T5JDAT All OINTER  *  OFEOOh; 

DECLARE  CUTFUI  1SDATAS POINTER  ADDRESS  INITIAL  (0FE40H); 

LECLARE  OUTPUT  liDATA  BASED  0 UTP U T  1  S  L AT A SPOl N T E R  BYTE; 

OUTPUT UtATASPOINTER  *  0  f  E  4  CH  ; 

DECLARE  CS  liCAT AS FOINTER  ADDRESS  INITIAL  (OFEOOH); 

DECLARE  CS  IS  DA  TA  BASED  C S  1  S D AT A S FO I  NT E R  BYTE; 

CS  1JDATAI POINTER  *  OFEOOH; 

DECLAhE  INPUT  103SDATASFOINTER  ADDRESS  INITIAL  (0FE40H); 

DECLARE  INPUT  IGJiEATA  BASED  I  N P U T  1 0 31 D AT A $FO I N T l R  BYTE; 

IN i UT  103SCATASFGINTER  •  UF140H; 

DECLARE  IN  FIT  1 0 5 $ E ATA $ POI N TE R  ALLRESS  INITIAL  (OFFOOH); 

DECLARE  i N  t  1 1  1  0  5$D AT A  bASED  I  N P D T  1  0 1$ D A T A $PO I N T E H  BYTE; 

INPUT  1C5ILATASPGINTER  *  OI/COH; 

DECLARE  OUTPUT  10 UDATASPOI NTER  ADDRESS  INITIAL  (OFF40H); 

DECLARE  CUTF UT  10  IlDAi A  BASED  OUTrUT  10  1$DATA$PCINTER  BYTt; 

OUTPUT  10  1IDAT AJPOINTER  •  G P  140 M  ; 

/*•/ 

/•*✓ 

DECLARE  (CS, CHAR, ENC.BJF, BODE, 


00244000 
00245000 
00246000 
00247000 
00246000 
00249000 
00250000 
00251000 
00252000 
00253000 
00254000 
00255000 
00256000 
00257000 
0)  ; 00 2 5 8 000 
00259000 
00260000 
0026  1000 
00262000 
00263000 
00264000 
00265000 
00266000 
00267000 
00  2  6  8  00C 
00269000 
00270000 
00271000 
00272000 
00273000 
00*74000 
00*75000 
00276000 
00*77000 
00278000 
00279000 
00263000 
00  .  -*4000 
0028^000 
00266000 
00267000 
00266000 
00269000 
00290000 
0029  1000 
CO*  32000 
00293000 
00294000 
00295000 
00296000 
00.97000 
00296000 
00299000 
00300000 
00  30  1000 
00  302000 
00  3 C  300 0 
00  jG4000 
003C5000 
00306000 
00  J07000 
00  3  C  6  000 
00  309000 


4 AITI MG  ,  SPACE)  BYTE; 

ENC  *  0; 

RJF  *  0; 

WAITING  *  0; 

DECLARE  (N  ,  NtRSGCI,  TOT AL$N  UHSCI , 

NURlFCl,  PCI SPOl AT  EH  ,  AC,  NURJRCI,  BCISPOlNTER,  GCISPOINTER, 
NURlNCl,  NC1APOIATEP,  CLKCNT,  TCI NITIAL,  TClIAITIAL)  ADDRESS; 

TO  I A  L$  NURSC I  «  0; 

MJflJCCI  ■  0; 

K  U  fl  $  PC  I  «  &  ; 

NbflSRCI  *  C; 

NURjNCI  «  C; 

CLKCAT  *  0; 

TCIAITIAL  »  0; 

1C  1IA1TIAL  *  0; 

DECLARE  (CLh,  C  LK F  ,  DELAY)  BYTE  I  A  111  A  L  (0  f  0  f  0)  ; 

CLK  *  0; 

C  LK  F  •  0; 

DELAY  •  0; 

DECLARE  (bUFFERSDELAY  ,  RSGSDELA Y  )  ADDRESS  1N1TIAL(46,  640); 
EUFFERSCELAY  *  48; 

RSGIDELAY  *  160; 

DECLARE  (  1IOLL1,  GC,  OPOLL1,  GUIT,  ST,  RJT  1  ,  LCT,  C  H  A  R  3T  , 

C  K  AR  ,  CHARS!  ,  CSITEST,  PRBSLC  AD,  HRBS  LOAD  ,  N  RB$  LOAD  ,  HJT2, 

F  ITiLOADlEAD,  RITA  LOAD! END ,  A T ll LOADJE A D , 

PT1SLOAD,  RTISLCAD,  NTTS  LOAD  ,  OUST  A  b  LE$  Bb I  LD  ,  CS  RODESC  ANCEL  1 , 
pClilEST,  CCSTEST,  RCISTEST,  AClSTEST,  CISNURSTEST,  C SRODESC A AC  EL  , 
ECRS1ES1,  SPACESTEST,  DELAY  iRCbTINE ,  OUTSCHAR  )  LABEL; 

DECLARE  (PC1RLSET,  RCIRESET,  NCI  RESET ,  GCIRESET,  ADRChANGE  )  LABEL; 
DECLARE  (  STARSIASERI,  RPUST ABLE S B UILD  )  LABEL  ; 

DECLARE  (  ICISTORE,  RCISTORE,  ACISICRE  )  (365)  BYTE; 

DECLARE  GCISTORE  (32  1)  BYTE; 

DECLARE  CH ARSSTORE  (2000)  BYTE; 

DECLARE  RSGSCOUAT  (  150)  ADDRESS; 

DO  II  *  D  TO  149; 

RSGCCU AT  (I  1)  *  0; 

EAD; 

DECLARE  (ENCRYPT,  ENCTEST  )  LABEL; 

DECLARE  SOh  LITERALLY  *0lH»  ; 

DECLARE  Cl  RODE  EYTE  INITIAL  (OH)  ; 

Ci/IODE  ■  OH; 

DECLARE  FCIIHEADER  DATA  ( ' *P RIOR IT Y *CI : • )  ; 

DECLARE  (I  ,TC  ,OUIJCODNT  ,  CC)  ADDRESS  INITIAL  (0,0,  1,0); 

1  »  0; 

TC  *  0; 

LbTSCOUNT  ■  1; 

CC  *  0 ; 

DECLARE  RCIJrtEADER  DATA  ('RCI:')  ; 

DECLARE  CUTE  TABLE  (2000)  BYTE; 

DECLARE  SC ISHEADER  DATA  ('NCI:')  ; 

DECLARE  FRESHEACER  LATA  ( ' *P  PIOR 1 T  Y  *R  B ' )  ; 

DECLARE  HRbJHEACER  DATA  ( ' R  F  b  :  ' )  ; 

DECLARE  NREIHEADER  LATA  ( ' N  F  b : 1 )  ; 

DECLARE  FT  1  SHE ACER  DATA  ( • *P RI OR  I T Y *TT ' )  ; 

DECLARE  RTTJHEADER  DATA  ('FIT:')  ; 

DECLARE  NTIJHEACER  DATA  ('NTT:')  ; 

/•  V 

DECLARE  l  CORFOSE1,  F  T 1 ,  FT  1 ,  N  T  1 ,  GT 1 ,  POLLTA BLEBUI L D  1 ,  IPLfTEST, 

Ch ECKI NRCLESET  1 ,  TTR1,  TBLDURF1,  CTABLEBU1 LD  1 , 

ROLEERROR1,  R PUC INURT EST  1 ,  P7TR1,  RTTR  1  ,  NTIR1, 

POLL1TR1,  PTABLICDRP1,  R T A  fa  LED  UR F  1,  NTA6LEDURP  1,  GT  AbLEDUHP  1  , 
PGLLIAbLlbURr  1,  R I ABL E B U I L D  1  ,  PT A b L EBU I L D  1 ,  PG LlTAriLE DURP 2 , 

N TAfcLEriUlLD  1 ,  FOLL DURPBU I LD 1 ,  Gr CLLBUILD  1 ,  CH ECKI NfDELETE # 


00310000 
00311000 
00312000 
00313000 
00314000 
00315000 
00316000 
00317000 
00318000 
00319000 
00320000 
00321000 
00322000 
00323000 
00324000 
00  325000 
00326000 
00327000 
00  32toOOO 
00329000 
00330000 
0033  1000 
00332000 
00333000 
00334000 
00335000 
00336000 
00337000 
00336000 
00339000 
00340000 
0034  1000 
00342000 
00343000 
00344000 
00345000 
00346000 
00347000 
00346000 
00349000 
00350000 
00351000 
00352000 
00353000 
00354000 
00355000 
00356000 
00357000 
00356000 
00359000 
00360000 
00361000 
00362000 
00363000 
00364000 
00  36SOOO 
00366000 
00367000 
00366000 
00369000 
00370000 
00371000 
00372000 
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NP0LL6UILD1,  RPCLLBUILD1,  OVER  FLO W  1 ,  OVERFLOW2)  LABEL; 

00373000 

DECLARE  POLLTABLE  1  (  1473)  BYTE; 

00374000 

DECLARE  (POLLPGI NTEF  1 ,  PT1COUNT1)  ADDRESS  INITIAL  (0,0); 

00  37SOOO 

POLLPCINTER1  -  0; 

00374000 

PT1COUNT1  *  0; 

00377000 

DECLARE  tTLHEADER  DAI  A 

00376000 

('fhXCftllY  CHECKIN  TABLE  DUMP  * ,0DH#  0AM) ; 

00379000 

DECLARE  RT  LhEADER  DATA 

00360000 

(  *  ROUT I  A E  CHECHIA  TABLE  DUMP  *  ,0DH, 0 AH)  ; 

00361000 

DECLARE  NT  DREADER  DATA 

00362000 

('AO  TRAFFIC  CH tCK I  A  TABLE  D  U  f  P  '  ,  0  D  H  ,  0  A  H )  ; 

00363000 

DECLARE  GTLHEADER  DATA 

00364000 

(•GROUP  ChECKlN  TABLE  DUMP',  ODh,  OAH  ); 

00365000 

DECLARE  ADRERRORHDR  DATA 

00366000 

('**  IACORRECT  ADR  CHARACTERS 

00367000 

DECLARE  ERRORHDK  DATA 

00366000 

('**  INCORRECT  MODE  CHARACTER  **'); 

00369000 

DECLARE  TFRIRRORhCR  LATA 

00390000 

('TAblE  TRANSFER  ERROR:  NO  CHECKINS'); 

0039  1000 

DECLARE  OVERFLOWHCR  DATA 

00392000 

('**  CHECKINS  AT  THE  LI  HIT  ♦  ♦'); 

00393000 

DECLARE  PGUDUMPHCR  DATA 

00394000 

('POLL  TABLE  DUMP:  CHANNEL  A»,  CDH.OAH  )  ; 

00395000 

DECLARE  POLLMSGOVER  DATA 

00396000 

(•**  AIL  POLL  MESSAGES  LOADED  **•); 

00397000 

/•*✓ 

00398000 

/**/ 

00399000 

/••/ 

00400000 

/*•/ 

0040  1000 

/*  IR11I ALX2AT10N  MSG  TO  TERMINAL  OPERATOR  •/ 

00402000 

DECLARE  STAhTUPSMSG  DATA 

00403000 

('IMPRCVEL  POLLING  SOFTWARE  -  VERSION  3:  10  JAN,  i960  *); 

00 w  04  000 

INITIALS  MSG:  WAITING  •  WAITING  ♦  1; 

00405000 

LO  I  -  1  TO  54; 

00406000 

CUTTABLE  (TC  ♦  I)  -  ST  AR  T  IPS  MSG  (I  -1); 

00407000 

EN  i  ; 

00406000 

1C  =  TC  ♦  54; 

00409000 

MSGCOUNT  (WAITING)  *  54 ; 

00410000 

/♦V 

004  1  1000 

/••/ 

00412000 

00413000 

/•V 

004  1  u  000 

/••/ 

00415000 

/♦V 

004  16000 

/*•/ 

00417000 

/•*/ 

00416000 

/••/ 

00419000 

/*  V 

00420000 

/*  SLOT  CALCULATION  ALGORITHM  ♦/ 

0042  1000 

IPOLL  1;  SLOT  «  INPUT (226)  ; 

00422000 

SLtl  «  SLOT  iOR  OFFH; 

00423000 

SLCTL  *  SLOT  AND  OFOh; 

00424000 

SLCTL  *  SHR (SLOTL, 4)  ; 

00425000 

SLC1 ri  *  SLOT  AND  OFH ; 

00426000 

SLC1FCOUNT  *  SLOTh  *  10  ♦  SLOTL; 

00427000 

IF  S  LOT  SCCUNT  <>  0  THEN  IDM.JFIAG  •  '1'; 

0042600G 

ELSE  TDMIFLAG  -  'O'  ; 

00429000 

CO  TO  POLISXMIT; 

00430000 

/•  SlOl  IS  INPUTTED  AS  4  BCD  VALUES  ON  A  SINGLE  INPUT  */ 

00431000 

/*  THE  4.  BCD  VALUES  ARE  MASKEl  OlT  INTO  SLOTH  AND  SLOTL 

V 

00432000 

/••✓ 

00433000 

/•V 

00434000 

/*  POLLING  ALGORITHM 

♦/ 

004  3  5000 

87 


/*♦/ 

/♦V 

P0USXH1T:  IF  POLLIFLAG  <>  01H  then  GO  TO  IPOU.11; 

IF  PT1C0UNT1  <  4  THEN  GO  TO  POUlHGDEfE  RAO  ft  i 
ELSE  GO  TO  POLLlOViES?EST; 

POLLSf.ODU  ERKCR  :  POLL  IF  LAG  *  0; 

GO  TO  HODEERROft 1 ; 

POLLJOVEhiUST:  IF  POLLSHSGSCOU  K  T  >•  TOTALSNUHSCI 
THEN  GO  TO  REPOLISTEST ; 

ELSE  CO  TO  OUTTABLEISSTATUSSTEST; 

REPOLISTEST:  IF  AUTOS  REPOLLS  FLAG  *  OlH 

THEN  GO  TO  AUTOS  PC LISREST ART; 

POLLSf LAG  *  OH; 

GO  TO  POLLShSGSCCHPlETE; 

POLLSHSGiCGhPLLTE :  WAITING  *  WAITING  ♦  1; 

10  I  »  1  TO  30; 

OUTTA  BL  l  <TC  *Z)  *  PCL  LtSGOV  E  8(1  -  ))  ; 

LAO; 

IC  t  TC  ♦  30; 
r.SCCOUNT  (WAITING)  •  30; 
frOlLSnSGSCOUNT  *  0; 

GO  TO  IPOLL11; 

OU11 ABLE USTATUSSTEST:  IF  TC  1  >  C  THEN  GO  TO  1POLL11; 

ELSE  GO  TO  POLil NGSHODEST ESI ; 

POLLI AGSftOEESTEST ;  ir  TDHSFLAG  «  THEN  GO  TO  TDHSPOLL; 

ELSE  GO  TO  NONSTDHSPOLL; 

AUTOSPOLISRLSTART:  POLLSHSGSCOUNT  -  0; 

TDHSPOLLSTXSSLGI  -  TQHSPOLLSTXSSLOTSINITIAL; 
GO  TO  POLLSnSGSCORPLETE; 

NONSTCfUfOLL;  IF  NTDRSfOLill  NTE R RU PIS F LAG  *  OlH 
THEN  GO  TO  IPOLl  11 ; 

IF  RETRANSHITSFLAG  <>  01H  THEN 

POLLSHSGSCOUNT  •  PC IISHSGSCOU A T  ♦  1; 

ELSE  RETRA NSfllTSFLAG  «  0; 

/*  HOA-TDH  POLL  HSG  COHF  052TI0N  V 

WAITING  1  *  WAITING!  ♦  1; 

DUTIABLE  1  (TC  1  ♦  1)  •  OlH; 

QUIT  ABLE  1  (TCI  ♦  2)  «  »0*  ; 

DO  II  •  1  TO  3 ; 

OUTTAbLEl  (TCI  ♦  2  ♦  It)  » 

PO  l  ITAt  LE  I  (2  1  ♦  POLLS HSGSCOUAT  *4-4); 

END  ; 

OUTTABLE  1  (TC  1  ♦  6)  ■  03H  ; 

OOT1ABLE1  (TCI  ♦  7)  *  03H; 

/•*/ 

ElAC  TABLE  LOAD  V 

DC  J  *  1  TO  7; 

NTDHilLACJTABU  (J)  »  OUTTAB  LE  1  (TC  1  *  0); 

FNU 

/•V 

TCI  «  TCI  ♦  7; 

HSCCOUNT  1  (WAITING  1)  «  7; 

GO  TO  SPOIL  11; 

TDHSPOLL:  If  TDr.SFOLLSlNTIRRUPTSFlAC  •  01H 
THEN  GO  TO  IPOLL11; 

I!  SIOTJCOUNT  •  TDHSPOLLSTXSSLOT  THEN 

TLHSPOLlSTXSS LOT  -  T It SPOLLSTXS SLOT  ♦  1; 

ELSE  GO  TO  IPOLL  11; 

IF  TCrtJPOLimiSlOT  >*  TDflSF Oi LlTXSSlOTJ INITIAL  ♦  B  THEN 
TDHSPOLLSTXSSLOT  -  T DH IPOLLSTX S SLOT  SI N I T ILL ; 

/*  TCfl  POLL  HSG  COHPOSITION  ♦/ 

IF  TOTALSNUHSCI  -  POLLS H SGSC Ot NT  >-  b  THEN  N  *  b; 

ELSE  N  »  TCTALSNUflSCI  -  POLLSHSGSCOUNT; 


00 4  3G000 
00437000 
00430000 
00439000 
00440000 
0044  1000 
00442000 
00443000 
00444000 
00445000 
00440000 
00447000 
00468000 
00449000 
00450000 
00451000 
00452000 
00453000 
00454000 
00455000 
00455000 
00457000 
00458000 
00459000 
00460000 
0046  1000 
00462000 
00463000 
00464000 
00465000 
00466000 
00467000 
00468000 
00469000 
00470000 
00471000 
00472000 
00473000 
00474000 
00475000 
00476000 
00477000 
00478000 
00479000 
00460000 
0046  1000 
00482000 
00483000 
00464000 
00465000 
00466000 
00467000 

ooueaooo 

00469000 

00490000 

00491000 

00492000 

00493000 

00494000 

00495000 

00496000 

00497000 

00496000 
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A  A  IT  I  A  G  1  -  WA1T1AG1  ♦  1; 

LC  J  «  1  TO  A; 

POL  lir.SGSCOURl  »  POLLSnSGSCOLNT  ♦  1; 

OIT1AKLE  1  (TC  1  ♦  1)  -  0  1H  ; 

OG1  TAbLE  1  (TCI  ♦ 2 )  *  '  O'  ; 

DC  11  •  1  TO  j; 

CIITA6LE  1  (TC  1  ♦  2  ♦  I  1)  * 

POLLTA tLE 1  (I  1  ♦  POLLittSGSCOUNT  *  4  -  4) 

END; 

TCI  *  TCI  ♦  6; 

OUT  UbLE  1  (TC  1)  *  03  H  ; 

EM; 

£  S  G  C  C  U  NT  1  (WAITING  1)  *  A  *  b; 

/**✓ 

/**✓ 

/*  INPUT  FROK  flODEfl  •/ 

/•V 

/*•/ 

1POLL11:  CS  *  CSiCATA  XCR  0  FFH  ; 
t  S  J  *  CS  AM  04  h  ; 

II  CSS  O  04  ri  THE  A  GO  TO  XX; 

CHAR  *  I NPU1 JJ DATA ; 

Go  T C  an; 

XX  :  CS  «  C  5  A  A  T  0 1 H  ; 

If  CS-G  1h  THEN  GO  TO  GC ; 

H  :  IF  CC  >  0  THEN  GO  TO  LCT ; 

ELSE  GO  TO  GPOiLI; 

/•  nCLEfl  INPUT  V 

GC ;  CHAR  *  1NPUT3IDATA  XOR  0  FFH ; 

CC  *  CC>  1  ; 

IF  CC  >«  2CCJ  THEN  GO  TO  LCT; 

CHAR  i  STORE  (CC)  *  CHAR  ; 

IF  CC*  1  TH  LA  GO  TC  ST  ; 

ELSE  GO  TO  r.JTI; 

/*  EACRYPTIOA  TEST  V 

l ACT  lSI :  IE  CHAR  *  0  A  A  H  THEN  GO  10  LNCRYP1; 

ELSE  GO  TO  LCT; 

/*  SOH  TEST  V 

ST:  IE  ChAh  *  SOh  THEN  GO  TO  LCT; 

If  ChAh  *  THEN  GO  TO  LCT; 

IE  ChAh  *  C  A  A  H  THEN  GO  TO  ENCRYPT; 

ELSE  rjf*1; 

GO  TO  LCT; 

ENCRYPT:  ESC  *  EAC  ♦  1; 

GO  TO  LCT; 

/♦  HFU  JOB  TEST  */ 

BJTl;  IF  B Jl *  1  THEN  GO  TO  LCT; 

IF  CC  *  t  THEN  GO  TO  EACTEST; 

I)  EAC  •  2  1  HE  N  OUTPUT  (233)  *  Uh; 

IT  C  C  *  J  IHEA  GO  TO  Ch  A  A  3T  ; 

IF  C  C  *  4  THEN  GO  TO  CHAR  AT ; 

IF  CC-5  THEA  CO  TO  CHARBT; 

ELSE  CO  TO  LCT; 

CHARjI;  IF  CHAR  *  ADR  1  THEN  GO  TO  LCT; 

ELSE  A J I  *  1 ; 

CO  To  LCT; 

C  H  Ah  41  ;  IT  CHAR*  ADR  2  THEA  GO  TO  LCT; 

ELSE  r.J  E  *  1 ; 

GO  TO  LCT; 

CHARBT:  IF  CHAh-  ADR  3  THEA  GO  TO  LCT; 

ELSE  flJI*1; 

/*  LAST  CHARACTER  TEST  */ 

LCT:  TC  L  A  *  INPUT (23 1)  ; 


00499000 
OOSOOOOQ 
OOBO  1000 
00502000 
00S03000 
00504000 
00B0B000 
00506000 
00B07000 

oosoaooo 

00508010 
00509000 
005  10000 
00511000 
00512000 
00B  1  3000 
00B  14000 
00515000 
OOBIbOOO 
00  B  17000 
005  18000 
00  B 19000 
0052  0000 
0052  1000 
00522000 
00523000 
00524000 
00525000 
00526000 
00527000 
00528000 
00529000 
00530000 
00531000 
00532000 
00533000 
00534000 
00535000 
00536000 
00537000 
00536000 
00539000 
00540000 
0054  1000 
00542000 
00543000 
00544000 
00545000 
00546000 
00547000 
00548000 
00549000 
00550000 
00551000 
00552000 
00553000 
00554000 
OOS5SOOO 
00556000 
00557000 
00556000 
00559000 
00560000 
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1CIX  *  TC1A  AND  0  1 H ; 

I I  TCLK  -  TCI KP  THEN  CO  TO  OPOLL1; 

ICLKCkT  -  TCLKCkT  ♦  1; 

TCLKP  ■  TCLK; 

1>  TCLKCkT  <  * 4 H  THEN  GO  TO  OPCLL1; 

TC1X  *  U; 

TCLKP  *  C; 

TCLKCkT  -  0; 

CCiPRESENT  *  CC$  Ph  ESENT  ♦  1; 

IT  CCiPRESENI  >  CC  TH  Eh  CCiPRESENT  •  0; 

F  IS  i  Gt  TO  OPOU1; 

tunui(«33)  »  ION; 

L  k  C  -  0  ; 

/**/ 

/•V 

/♦♦/ 

/•  ID  AC  ALGOkITHR  -  NON  TTR  POLLING  BSG'S  •/ 
LDACiRCUllkl:  IP  EC  AC  $  F  LAG  O  Olh  ThEN  GO  TO  BJT2; 

II  BJF  <>  1  ThEk  GO  TC  flJT2; 

II  rOLUILAG  <>  01H  THEk  GO  1 0  HJT2; 

IF  TDRFFLAG  <>  »0»  THEk  GO  TC  RJT2; 

II  CC  <>  7  THEk  GO  TO  RJT2; 

DC  J  »  Me  7; 

If  ChARSsTOhE  (J)  <>  HTDflf  i.r  ACSTABLE  (J) 

IfEk  GO  TO  RETRANSHITEI LACSSET; 

tkC  ; 

RET  HA  kSttlTSF LAG  *  OH; 

REPOllJFLAGSCOUkT  *  0; 

GO  TO  r JT  *  ; 

RE1R  ANSnlTU  LAGiSET  :  RET  BA  HSMTI  FLAG  »  0  1  H  ; 

FtPCLUFLAGf  COURT  •  REpOLlf  FL  ACSCOURT  ♦  t; 

II  RLFOLLTFLAGSCOUM  >  3  THEN  REPQLLlFLAoSCOUkT  .  G; 

1}  RElGLiSFlACSCOUkT  -  0  THEk  RETR AN  SBlTif LAG  •  OH; 

/♦V 

/*  MODE  TEST  G  FORrATTIkG  V 
HJT2:  ir  BJI»1  THEk  GO  TO  BPUSTAbLEjBUILD  ; 

BODE*  CHARSSTORE (2) ; 

IF  BOLE  *  'C»  THEN  go  TO  CSSTEST; 

if  bole  *  *i'  then  go  to  csstest; 

IF  BODE  *  *1'  THEN  GO  TO  CSSTEST; 

IF  BODE  *  *|*  THEN  go  TO  PR6SL0AC; 

IF  RCCE  *  *k'  Then  GU  TO  NR&SLOAD; 

IF  BODE  *  1 R  '  THEN  GO  TO  RRBSLOAU; 

IF  roil  *  *  X  'THEN  GO  TO  PTTf  LOAD ; 

IF  BODE  *  'I'  THEN  GO  TO  RTTSLOAC; 

IF  BODE  »  *2'  THEN  CO  TO  NTTSLOAC; 

GO  TO  RPUSlAdLESBUILL ; 

/♦V 

/♦V 

/*  CHECKIN  STATUS  TEST  ♦/ 

CSSTEST:  II  CSBGDE*  *1*  THEN  GO  10  lCSTEST; 

ST  AR I  IkSER  1  ;  C  h  A  R$  STORE  ( X)  *  •?»  ; 

GO  TO  OU1STA8LEABUILD; 

/•  C  H  AR  AC  1  EH  COUNT  TEST  */ 

/•  THE  CC  TEST  RETIRES  PCI/RC1/NCI  CHECKINS  TO  HAVE  */ 

/*  A  fllMBUfl  OF  9  CHARACTERS.  RfSSAGES,  HOWEVER,  BAT  •/ 

/*  BE  APPENDED  AITER  THE  9TH  CHARACTER.  */ 

CCSTEST;  II  CC  >»  9  1  HE  k  GO  TO  PCISTEST; 

ELSE  CH  ARiSTORE  (1)  •  •  ?  1  ; 

GO  TO  OUTiTABLESBUlLT; 

PCISTEST:  IF  BODE  <>  »C«  THEN  GO  TO  RCIiTEST; 

ELSE  kURIPCI  -  kUBSPCI  ♦  1; 

PC  I S  POI N 1 E  h  -  U  *  (  kUBSPCI  -  1  )  ♦  1  ; 


00561000 
00562000 
00563000 
00564000 
0056S000 
00566000 
00567000 
00566000 
00569000 
00570000 
00571000 
00572000 
00573000 
00574000 
00575000 
00575000 
00577000 
00576000 
00575000 
00560000 
00561000 
00562000 
00563000 
00564000 
00565000 
00 566000 
00567000 
00568000 
00569000 
00590000 
00591000 
00592000 
00593000 
00594000 
00595000 
00596000 
00597000 
00596000 
00599000 
00600000 
0060  1000 
00602000 
00603000 
00604000 

ootosooo 
00606000 
00607000 
00606000 
00609000 
00610000 
006  1 1000 
00612000 
00613000 
00614000 
00615000 
006:6000 
00617000 
00616000 
00619000 
00620000 
00621000 
00622000 
00623000 
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DO  1  -  6  TC  9  ; 

PCISSTOHE  (FCISPOINTER)  -  CH AF J STt* £  (I)  ; 

PCISPGINlEh  -  PC1SPOINTEF  f  1  ; 

END  ; 

Do  1  •  0  Tt  12  ; 

OU1STABLE  (TC  ♦  1  ♦  1)  ■  PCI  JH  EAGER  (I)  ; 

END; 

NC  *  CC  f  13; 

TC  «  TC  ♦  13; 

GO  TO  CliNUP.iTEST; 

hCIITlST:  IF  ftODE  <>  »D*  THEN  GO  TC  MCI STEST ; 

ELSE  MJfliRCI  «  NUPSNC1  ♦  1; 

NC  IS  P  01  N  T  E  N  =  tt  *  (  NUHSRCI  -  1  )  ♦  1  ; 

GO  I  «  6  TC  9  ; 

KCliSIOhl  (FCISFOINTEF)  *  CHA h i STCR E (I )  ; 

FCIiPCIMEh  -  FCISPOINTEF  ♦  1; 

END; 

1)0  I  *  0  TL  J  ; 

OUTJIABIMTC  f  I  ♦  1)  *  F  CIS  H  E A l ER  (I)  ; 

END; 

NC  *  CC  ♦  tt ; 

1C  ■  1C  ♦  tt  ; 

GO  TO  CliNirSlEST; 

NC ii  1  ESI  :  NtniNCI  *  NU/UNCI  ♦  1; 

NC  ISP  Cl  MEN  =  tt  ♦  (  NUrtSNCI  -  1  )  ♦  1  ; 

DO  I  *  t  TL  9  ; 

NCISSIONE  INC1SF01NTE F)  *  CHAN  i  SURE  (I)  ; 

NClJPOIMEN  *  NCUPOINTER  ♦  1  ; 

END; 

LO  X  «  0  TC  J  ; 

OUT  1 1 A  t  L  L  vIC  *  I  >1)  »  NCISHF.  AILr  (I)  ; 

END  ; 

N  C  *  C  C  ♦  tt  ; 

IC  *  TC  ♦  tt; 

/♦V 

/*♦/ 

Cl  JllUfSJTiSl  ;  IF  NUr.JFCI  ♦  NUHShCI  f  NUrtSMCI  >=  fco 
THEN  GO  TO  CiHUCESCANCEL; 
tLSE  GO  TC  OtTiTAbLESBL'IIC  ; 

/*  Ali-CAII  CHECKIN  MODE  CANCEt  ♦/ 

C$  fit/ LEJ  CANCEL:  IF  FOLLIFLAG  •  Oil.  *  h  E  N  GO  TO  C  l  POD  ES  C  A  NC  E  1 1  ; 
to  II  «  1  TO  2 7 ; 

CtTTAbEE  1  (icm  1)  •  OV  EM  LOHHDN  (I  1- 1)  ; 

END  ; 

TC  1  -  TCI  ♦  27 ; 

HAITI  NO  1  *  mAIU  NG  If  1  ; 

PSGCUUNT 1 (HAITI NG  1)  ■  21, 

/+  ChECMN  BODE  CANCEL  ttSG  TC  I  EKHI N A  L  OPENATOK  •/ 

CIP.OLUCAN  CEL  1 :  DC  1  -  1  TO  27; 

ODl  STABLE  (TC  ♦  I)  •  0  V  l  h  T  1C  h  HD  R  (I  *  1)  ; 

END  ; 

TC  *  TC  f  27; 

AC  «  NC  f  *  7 ; 

CirtCLE  *  'O'; 

GC  TC  GUTSTAPLESbUI LL  ; 

/*•/ 

/**/ 

HPUS1  AfcLUcUIlD;  NC  *  CC  ; 

CUlSlAELElbUILO:  CO  1  -  1  TO  CC ; 

ODIST  AH  IE  (TC  f  I)  *  CH A R S STOR E ( I )  ; 

END; 

1C  •  1C  f  CC  ; 

NA111NG  -  hAITING  f  1; 


00626000 
00625000 
00626000 
00627000 
00628000 
00629000 
00630000 
00631000 
00632000 
00633000 
00636000 
00635000 
00636000 
00637000 
00636000 
0063900C 
OObttOOOO 
00661000 
00662000 
00663000 
00666000 
00665000 
00666000 
0064  7000 
00666000 
00669000 
00650000 
006S  1000 
00652000 
00653000 
00656000 
00655000 
00656000 
00657000 
00656000 
00659000 
00660000 
0066  1000 
00662000 
00663000 
00666000 
00665000 
00666000 
00667000 
00666000 
00669000 
00670000 
00671000 
00672000 
00673000 
0067tt000 
00675000 
00676000 
00677000 
00678000 
00679000 
00660000 
0066  1000 
00662000 
00663000 
00666000 
00665000 
00686000 
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HSGACOUAT  (AAITIAG)  -  NC; 

00667000 

CC  -  0  ; 

00688000 

At  -  0; 

00689000 

RJI  *  0; 

00690000 

OUTPUT  (2 33)  *  1GH ; 

00691000 

LAC  *  C; 

00692000 

GO  10  0PCH1; 

00693000 

/••✓ 

00694000 

/♦*/ 

00695000 

PAbSLOAD:  CC  I  *  0  TC  11  ; 

00696000 

GUTiTAbLL  (IC  ♦  1  ♦  1)  -  P  R  bS  H  l  A  C  18  ( I)  ; 

00697000 

LAC; 

00698000 

AC  *  CC  ♦  12  ; 

00699000 

TC  »  TC  ♦  12  ; 

00700000 

GO  TO  OUTS! ABLESBU1LL ; 

00701000 

HhblLOAD:  LG  1  *  0  TO  3  ; 

00702000 

0UTSTA8II  (TC  ♦  I  ♦  1)  «  AR8SHEAL LR  (I)  ; 

00703000 

LAD; 

00704000 

AC  “  CC  ♦  4; 

00705000 

TC  -  TC  ♦  4; 

00706000 

GO  TO  GUTSTAblfcSEUlLL  ; 

00707000 

MiblLOAD:  LG  1  «  0  TO  3  ; 

00708000 

GCTSTAblL  (TC  ♦  X  ♦  1 )  *  A  h  B$  H  LA  It  tk  (1)  ; 

00709000 

LAC; 

00710000 

ac  *  cc  ♦  **  ; 

00711000 

TC  •  TC  ♦  4  ; 

00712000 

GO  TO  OUTS TAbLtSbUllL  ; 

00713000 

/♦*/ 

00714000 

/♦  V 

00715000 

PTTSlOAD:  il  CSflOCt  *  *0»  THEA  GC  IC  STA  R$I  A  St  AT ; 

00716000 

IP  CC  <  9  THEA  GO  TO  STAASIASlAT; 

00717000 

10  I  *  t  TO  CC  bY  4; 

00718000 

AUfSPCI  *  MJRSfCl  ♦  1; 

00719000 

PC  IS  PCI  AT  IP  «  4  *  (AURSPCI  -  1)  ♦  1  ; 

00720000 

LO  J  »  C  TO  j; 

00721000 

PC  IS  STOP  E  (  PCIIPOINTER  )  «  CH ARSStOR  E  (1 ♦ J) 

; 

00722000 

PC1SP0IA7IA  *  PC1JP0IATEA  ♦  1; 

00723000 

LAC; 

00724000 

If  AUrSPCl  ♦  AUHJACI  ♦  AUflSACl  >«  80  THL  A  GO  TO 

PITSLOADSEAL; 

00725000 

If  (CC  -  I)  <  4  ThEA  GO  TO  PTIS  CCA  DlEA  D; 

00726000 

LAC  ; 

00727000 

PTiSLOADSLAC:  DO  I  •  0  TO  11; 

00728000 

OUTSTAbLL  (TC  ♦  1  ♦  1 )  -  P  TTS  H  E  A  C  L  R  (I )  ; 

00729000 

LAC; 

00730000 

AC  *  CC  ♦  1*  ; 

00731000 

TC  ■  TC  ♦  1*  ; 

00732000 

If  Aur.SPCI  ♦  AUnSRCI  ♦  AUHSACI  >•  bC  THLA  go  TO  CSflODLSCAACEL; 

00733000 

GO  TO  GU1ST APLlibUlLL  ; 

00734000 

fTTSLOAO:  11  CSflOOE  *  *0*  THEA  GO  TC  STAR  Si  A  SLAT ; 

00735000 

If  CC  <  9  ThEA  GO  TO  STAASIASLRT; 

00736000 

CO  1  *  6  TO  CC  BY  4; 

00737000 

AUHARCI  «  AURSRC1  ♦  1; 

00738000 

RCIAPOIATER  «  4  •  (AUHSRCI  -  1)  ♦  1; 

00739000 

LO  J  -  C  TO  J; 

00740000 

AC 1SS10RE  (  PC  I S  POINT  ER  )  •  CHARSSTORE(I  ♦ 

J) ; 

0074  1000 

AC  1  SPOT  AT  Eh  •  ROS  POINTER  ♦  1; 

00742000 

LAO; 

00743000 

If  AUHSPCI  ♦  AUHSAC1  ♦  AUHSACI  >■  80  THEN  GO  TO 

RTTSLOADSEAC; 

00744000 

ir  (CC  -  1)  <  4  THEA  GO  TO  RTT S LOADS t A D ; 

00745000 

LAD; 

00746000 

ATTSLOADSE AC:  DO  1  •  0  TO  3; 

00747000 

OUT  ST  Ab  L  E  (TC  ♦  1  ♦  1)  -  RTTSH  EAL'LB  (I)  ; 

00748000 

LAC; 

00749000 

92 


NC  *  CC  ♦  4  ; 

TC  -  TC  ♦  4  ; 

IF  NUHSFCI  ♦  NUHSRCI  ♦  NUHSNCI  >«  faO  THEM  GO  TO  CSHODESCANCti; 

GO  TO  CUTSlAbLESBUILD  ; 

N  T  TS LOAD :  H  CSHCDE  -  *0*  THEN  GO  TC  STARSINSERT; 

IF  CC  <  5  THEN  GO  TO  STARSINSERT; 

I/O  1  »  b  TO  CC  BY  4; 

NUHSNCI  -  Nlinf  NCI  ♦  1; 

N  Cl S  E  01  NT  E  R  -44  (NUHSNCI  -  1)  ♦  1; 

CO  J  »  0  TO  3; 

NCIS STORE  (  NC1SP0INTER  )  -  CH ARSSTORL  (1 ♦ J)  ; 

NC1SP0INTER  -  NCISPOINTER  ♦  1; 

INL; 

IF  NUflSFCI  ♦  NUHSRCI  ♦  NUHSNCI  >*  80  THEN  GO  TO  N  I  T$LO  ADS  EN  C ; 
IF  (CC  -1)  <  4  THEN  GO  TO  NTTi LC ADS EN D ; 

END; 

NTTS  LOAD JE  N  D :  DO  1  »  0  TO  3; 

OUTSTAB Li  (TC  ♦  I  ♦  1 )  *  N TTS H E A l ER  ( I )  ; 

END; 

NC  «  CC  ♦  4; 

TC  ■  TC  ♦  4  ; 

IF  NUHSPCI  ♦  NUHSRCI  ♦  NUHSNCI  >•  6G  THEN  GO  TO  C S HOD  ESC A NC E L ; 

GO  To  CUTS T AriLESBUILD  ; 

/*  r.FL  CUTPUT  */ 

0P0LL1;  iF  DELAY  «  1  ThEN  GO  TO  L E L A Y S HOU II N E ; 

IF  WAITING  <*  0  THEN  GO  TC  IPOLL101; 

IF  1C  >  0  THEN  GO  TO  EOHiTEST; 

ELSE  GO  TO  I  POL  L  1  0  1 ; 

LOHiTEST:  IP  OUTSCOUNT  <  HSGSCOUNT(I)  THEN  GO  TO  SPACESTEST  ; 
ELSE  DELAY  -  1; 

SPACEJlEST:  IF  RS232JFLAG  *  Glh  THEN  GO  TO  RS*32$SPACE$TEST; 
SPACE  *  INrirSSDATA  XOh  OFFH; 

SP  aC  t  *  SPACE  AND  C*h ; 

IF  SPACE  «  C2H  THEN  GO  TO  OUTSCHAh  ; 

ELSE  DELA  i  «  0; 
ou  To  HOL  L  101 ; 

/••/ 

hS*3*JSPACti TEST:  SPACE  *  INPUT (^37) ; 

SPACE  -  SPACE  AND  0  1H  ; 

IF  SFACE  *  Olh  T  h IN  GO  TO  OUTSCHAH; 

ELSE  DELAY  *  U; 

GO  TO  IPOLL  10  1  ; 

/•  V 

LELA  UhOUTlNE:  CLK  *  INPUT(2  30); 

CLK  «  CLK  AND  OIK; 

IP  CLK  -  CLKF  THEN  GO  TO  IPOLL101; 

CLKCNT  -  CLKCNT  ♦  1; 

CLKP  *  CLK; 

Ii  CLKCNT  <  EUP FEhlDLLA Y  THEN  CO  TO  IP0LL1G1; 

CUT  PU  1  («.  3  5 )  -  Oh  ; 

1>  CLKCNT  <.  H  SGS  DELAY  THEN  CO  TO  IPOLL101; 

DELAY  =  C; 

CLKCNT  *  0; 

GO  lu  IPOLL  10  1 ; 

✓  •♦/ 

/♦  UlTPUT  10  r.  PU  v 

/*•/ 

OUTChAh:  IP  HS2J2IPLAG  *  OlH  THEN  CC  TO  R  S232S  OUTC  HAP  ; 

OUTPUT  (<J5)  *  0  1 W  ; 

uUlPUT  1  4  D  A  1  A  -  0UI3T ALLE  (OUTSCOUNT)  XOh  OlFH; 

OUTSCOUNT  *  OUTSCOUNT  ♦  1  ; 

GO  TC  SH IF  TION N  ; 

/••/ 


00750000 
0075  1000 
00752000 
00753000 
00754000 
00755000 
00756000 
00757000 
00758000 
00759000 
00760000 
0076  1000 
00762000 
00763000 
00764000 
00765000 
00766000 
00767000 
0076B000 
00769000 
00770000 
00771000 
00772000 
00773000 
00774000 
00775000 
00776000 
00777000 
00778000 
00779000 
00760000 
0076  1000 
00762000 
00763000 
00764000 
00765000 
00766000 
00767000 
00768000 
00769C00 
00790000 
00791000 
00792000 
00793000 
00794000 
00795000 
00796000 
00797000 
00796000 
00799000 
00800000 
006G  1000 
00802000 
00603000 
00604000 
00605000 
00606000 
00607000 
00606000 
00609000 
00610000 
006  1  1000 
00612000 


HS232  tOU  TC  HAR  :  OUTPUT  (237)  «  25H; 

OUTPUT  (236)  *  OUTJTAtLE  (OUTSCOUNT)  ; 

OUTJCOUNT  ■  OUTSCOU  AT  ♦  1; 

SHIFT  DC*  N :  IF  OUTJCOUNT  <-  H SGI COU N T  (  1 )  THEN  GO  TO  IPOLL101; 
OUTPUT  (237)  *  1 5h ; 

CO  1  *  OUTJCOUHT  TO  TC  ; 

OLTJTAfel£(  1  ♦  1  -  OUTJCOUHT  )  *  OU  TJT ABL  E (  I  )  ; 

EH  L  ; 

LG  1  *  1  TC  WAITING  ; 

KSGJCGUK1  (1)  »  HSGJCOUNT  ( I  ♦  1)  ; 

LkC; 

TC  *  TC  -  (  OUTJCOUHT  -1  )  ; 

nSGCOUHT  (H  A1T1HG)  =  C  ; 

HAITIHG  =  -AlTIHG  -  1  ; 

OUTJCOUHT  =  1  ; 

IF  HAITIHG  *  C  THEN  TC  *  0; 

/*  Tx  &  hx  n a j op  loop  -  npu  */ 

✓  *  V 
/••/ 

/♦V 

1  PcL  L  10  1  :  it  RS232JFLAG  *  01H  THEN  GO  To  RS I  32  1 1 NPUT  1  ; 

ELSE  GO  TO  IPOLL  10  1  1  ; 

/*  V 

hS23c$lNP U1  1 :  C S 1  =  INPUT (237)  ; 

C  S  1  =  CS1  AND  02H; 

IF  CSl  «  0  2H  THEN  CHAM  *  INPUT(23b); 

ELSE  GO  TO  IPOlllG 11 ; 

CO  TO  h Si 32JGC1 ; 

/•♦/ 

I  POL  1  1G  1  1 :  CSl  *  csuoata  xor  or  Fh  ; 

CS4  *  CSl  A  K  C  G4H ; 

Ii  CS  4  <>  C4H  THEN  CO  TO  YY; 

CHARI  *  IN  PIT  10 J JD AT A ; 

GO  TO  LZ\ 

YY:  CSl  *  CSl  AND  Olh; 

IF  CSl  *  Olh  THEN  GO  TO  GC  1  ; 

L'L  :  IF  C  C 1  >  G  THEN  CO  TO  L  C  T  1 ; 

ELSE  GO  10  OPOILIOI; 

/••/ 

/•  input  frch  hpu  */ 

/♦♦/ 

GC  1 :  ChARI  *  INPUT  1 0  3  $  D  AT A  XOR  OIFH; 

HS^3*JGC1:  CC1  *  CC1  ♦  1; 

II  ccl  >*  2000  then  GO  TO  LCT 1  ; 

CHAKSIORE1  (CC1)  -  CHARI; 

/*  */ 

/*  hEALlh  TEST  ♦/ 

/♦  V 

if  cc  i  < *  j  then  go  to  ict i ; 

IF  CC1  *  *4  THEN  GO  TO  CHAR4T1; 

IF  C C  1  >•  S  THEN  GO  TO  LCT 1 ; 

CHAP4T1:  IF  CHARI  *  2 1 h  THEN  OUT  1  =  0; 

ELSE  GO  TO  OUTFLAG1; 

GC  TC  LCT  1 ; 

CUT! LAG  1:  OUT  1  *  1; 

/•♦/ 

/•  LAST  CHARACTER  TEST  */ 

/••/ 

LCT  1  ;  TCLK  1  -  INPUT  (2  30)  ; 

TC  LK  1  *  TCLK  1  AND  0 1H; 

IF  TCLK1  •  TCLKP1  THEN  GO  TO  CPOLHOl; 

T  C  LK  C  NT  1  ■  TCLNCNT1  ♦  1; 

TC  LK  P  1  •  TC  LK  1 ; 


00813000 
00814000 
0081S000 
00816000 
00817000 
00818000 
00819000 
00620000 
00821000 
00822000 
00823000 
00624000 
00825000 
00826000 
00627000 
00626000 
00629000 
00630000 
00631000 
00632000 
00633000 
00834000 
00636000 
00636000 
00637000 
00836000 
00839000 
OObMQOQO 
0064  1000 
00642000 
0081'  3000 
00844000 
00645000 
00846000 
00847000 
00646000 
00649000 
00850000 
00651000 
00852000 
00853000 
00854000 
00855000 
00656000 
00657000 
00656000 
00659000 
00860000 
0086  1000 
00662000 
00863000 
00864000 
00665000 
00066000 
00667000 
00868000 
00669000 
00670000 
0067  1000 
00672000 
00673000 
00674000 
00675000  / 
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I F  TCLKCNT1  <  H SGSOV ERSDEL  AY  THEN  GO  TO  OPOLL101; 

1C  LK  1  *  0  ; 

1 C  LK  F  1  *  0  ; 

ICLKCATl  -  0; 

CCUFRESENT  -  CCUPRESENT  ♦  1; 

IF  CCISFRESEnT  >  CC1  THEN  CCUPRESENT  «  0; 

ELSE  CO  TO  OPOLL101; 

/**/ 

/♦V 

/♦  •/ 

✓  *  */ 

/•  C  DTP  UT  COMPOSITION  */ 

/*  •/ 

/*  V 

GUTFUTKufl  FOSE  :  If  OUT1  <>  1  THEN  GC  TO  COW POS E  1 ; 

DO  CASE  EATSflSGS  FLAG  1  ; 

GC  10  WOL EWECUTFUTICOWPOSE  1  ; 

II  FGLLiFLAG  •  01H  THEN  GO  TO  EATSHSG1; 

ELSE  GO  TO  WODEWSOUTFUlSCOnPOSE  1  ; 

GC  10  LATJHSGI; 

El- 1  ; 

r.GLEfUCUlPUliCOWPOSE  1  :  IF  CH ARSTOR t  1  (4)  -  '*»  ThEN 

GO  TO  MOC£rtSOUTPUTJCOHPOSE2 ; 

DC  II  *  1  TC  CC  1  ; 

OUTTAbLE  1  (IC  1  ♦  II)  *  CHARSTORE  1  (I  1)  ; 

Erl  ; 

TCI  *  TCI  ♦  CC  1  ; 

WAITINGI  *  WAITING  1  ♦  1  ; 

HSGCCUnT  1  (WAITINGI)  *  C  C  1  ; 

EATiWScI:  CC1  *  0; 

CUT  1  *  0 ; 

GOTO  CPCL  L 10 1 ; 

/*  V 

/*  LOOP -A  ROUND  OUTPUT  WESSAGE  CQWPCSITION  */ 

/♦  V 

rocEr.lou  :pui$conpcsEk :  do  n  »  to  cci; 

OUTTABLE  1  (TC  1  ♦  11-3)  *  CH  Ah  STOK  E  1  (I  1)  ; 

END  ; 

TC  1  *  TCI  ♦  CC  1  ; 

•A1T1NG1  *  nAITINGl  ♦  1; 

H.  SGCOUNT  1  (WAITING  1)  *  CCI  ; 

CCI  •  0  ; 

OUT  1  *  C  ; 

GO  TO  CFOLL101; 

/*•/ 

/*  CCKFCSITIGN  FROGRAW  •/ 

/•  */ 

/*  TEST  HOLE  ChARACTER  */ 

/•  •/ 

CCWFOSll:  i i  CCI  <  6  THEN  GO  TO  MGLEERRORl; 

IF  C hARS TORE  1  (U)  <>  A  DR  1  THEN  GO  TC  ADRERRORl; 

IF  C hARSTO RE  1  (7)  <>  A  DR  2  THEN  GO  1C  ADR  ERROR  1  ; 

IF  Ch ARSTUhE  1  (b)  <>  ADRi  THEN  GC  TC  ADRERRORl; 

/*  cowsup  r.oLt  recognition  characters  */ 

/**/ 

IF  C hARSTORL  1  (5)  •  *  A  *  THEN  GO  TC  CCIRESET; 

IF  CHARSTORE  1  (b)  ■  ■ fc *  THEN  GO  TO  GTl; 

IF  C hARSTORE  1  lb)  •  *C •  THEN  GO  TO  Ell; 

IF  CHARSTORE  1  (S)  -  *  D  1  THEN  GC  TC  RT  1  ; 

IF  CHARSTORE 1  (S)  »  •£*  THEN  CO  TO  ATI; 

IE  C  h A  nS  T  OR  E  1  (b)  ■  *F'  THEN  GO  TC  PC  IN  t  SET ; 

II  CHAhST CHE  1  (b)  «  *  G •  THEN  GO  Tc  HCIRESET; 


00876000 
00877000 
00878000 
00879000 
00880000 
00681000 
00662000 
00683000 
008841000 
00888000 
00888000 
00867000 
00688000 
00689000 
00690000 
0069  1000 
00692000 
00893000 
00  69*4  000 
00895000 
00696000 
00897000 
00698000 
00899000 
00900000 
0090  1000 
00902000 
00903000 
00904000 
00905000 
00906000 
00907000 
00908000 
00909000 
009  10000 
00911000 
00912000 
00913000 
009  14000 
00915000 
00916000 
00917 000 
00918000 
00919000 
0092000Q 
00921000 
00922000 
00923000 
00924000 
00925000 
00926000 
00927000 
00928000 
00929000 
00930000 
0093  1000 
00932000 
0093 3000 
00934000 
00935000 
00936000 
00937000 
00938000 
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IF  CHARSTORE  1  (5)  -  'h*  THER  GO  TO  RCIRESET; 

I!  C  HA  RS 1 GR  E  1  (5)  -  *1*  THER  GO  TO  ADRCHARGE; 

If  ChARSTORE 1  (5)  «  THER  GO  TO  POLLSBODE; 

II  ChARSTORE  1  (5)  *  'K'  THER  GO  TO  RO US TOflS DE LA T% SET ; 

IT  ChA AS1CHE  1  (S)  *  »L»  THER  GO  TO  POLLSIRTERBUPT ; 

XT  C  hA  RS I  ORE  1  (5)  «  • B  *  THER  GO  TO  POLLTABLEBUILO  1 ; 

IF  CHARS1GRL  1  1$)  *  THER  GO  TC  CHECK IRSDE LITE ; 

II  ChARSTORE  1  (5)  *  *0*  THER  GO  TO  SLOTSBEASSIGN ; 

IF  ChARSTORE  1  (S)  -  *P»  THER  GO  TC  ED ACSBO DEE SET ; 

If  CHARS10RE1  (5)  *  U*  THER  GO  TC  RS232SBODESSE T ; 
IPUTEST:  IF  CHARSTOKEl(S)  «  *R*  THER  GO  TO  PR OGR A BS ST ART ; 
IF  ChA  RS 1 CK  E  1  (5)  *  'S*  THER  GO  TC  CHECK IR BODESET  1 ; 

II  ChA RS1GRE  1  (5)  *  *T*  THER  GO  TC  TTR 1 ; 

II  CHA RSIGRL 1  (S)  *  'U*  THER  GO  TO  TBLDUBP 1 ; 

IF  ChARSTGRE  1  (5)  -  THER  GO  TO  £ ATSBSGSSET ; 


IF  ChA ASICRE  1  (S) 
XT  ChA RSI  ORE  1  (5) 
IF  CHA  RSIGRE 1  (S) 


II  CHA RSIGRL 1 (S) 
II  ChARSIOhE 1 (5) 


00939000 
00940000 
0094  1000 
00942000 
00943000 
00944000 
0094S000 
00946000 
00947000 
00948000 
00949000 
00950000 
0095  1000 
00952000 
009S3000 


i  f 

CHARSTORE  1  (5) 

m 

•x  • 

THER 

GO 

TO 

PITR  1; 

00954000 

IF 

ChARSlORE 1 (b) 

m 

*\ ' 

THER 

GO 

TC 

RTTR  1  ; 

00955000 

IF 

CHARSTORE 1 (5) 

■ 

u* 

THER 

GO 

TO 

NITR 1 ; 

00956000 

IF 

ChARSTORE  1  (5) 

m 

•  1  • 

THER 

GO 

TO 

PITS  LO A  D 1 ; 

00957000 

IF 

CHARSTORE  1  (5) 

« 

*  2  * 

THER 

GO 

TO 

RTTSLOAD1; 

00958000 

If 

CHARSTORE  1  (5) 

a 

*  3  • 

THER 

GO 

TO 

MTSIOAD1; 

00959000 

ELSE  CC  IC  HOD  £  ERROR  1 ; 

/**/ 

/*♦/ 

SL0T3REASS IGR :  IF  CC 1  <  22  THER  GO  TO  H0DEERRCR1; 

If  CtfARSIOAl  1  (2  ?)  >  J5H  THER  GO  20  B0DEFRROB  1 ; 

IF  CHARSTORE M2  1}  <  30H  THER  GO  TO  BODEERROR  1 ; 

IF  CHAR  STORE  1  (22)  >  39H  THER  GO  TO  BODEERROR1; 

IF  CHAR  STORE  1(22)  <  30h  THER  GO  TO  HOD  EER  ROR  1  ; 

TXiSLGTJlNITlALH  •  (CHARSTORE  1  (2  1J  -  3 OH)  *  10; 

TXlSLOTSINITI ALL  «  CHARSTORE 1 (22)  -  30H  ; 

IF  TXSSLCISIRITIALH  ♦  TXS5L0TSI  MTI A  LL  >  S4  THER  GO  TO  HODEERROR  1; 
IF  TX1SLGTSIRITIALH  ♦  TXlSlOT SlRITIALt  •  0  THER  GO  TO  BODEERROR  1  ; 
TDHSFOLLJTXSSLOTJlRITIAL  -  TX $ S LCTSl K I TI A IH  ♦  T  XS  S  LOTS  IR  I TI  AL  L  ; 
TthlPOLUTXf  SLOT  *  T DBS PO L 1ST  A S S IOT SI K ITI A L ; 

/*  TDHSFO LLSTXSSLOTSIRITIAL  IS  LIBITED  TO  A  RARGE  OF  1  TO  5 4  */ 

POLL* SLOT  1 H  -  CHARSTORE  1  (9) ; 

FOLLiSLOTU  -  CHARSTORE  1(10)  ; 

POLL  JSLCT2 H  ■  C H A RSTOR E  1(  11)  ; 

POLLJSLCT2L  -  C H A RSTOR E  1(  12)  ; 

PO  LL i S LOT  3  H  -  C  HA RSTOR  E  1  ( 1  3)  ; 

FO LL i SLOT3L  *  C HA RSTOR E  1(  1 4}  ; 

PO  LL i SLOT 4 H  *  C  H A RSTOB  E 1 ( 1 S)  ; 

PO  LL  S  SLOT  4  L  *  C  HA  RSTOR  E  1  (  16)  ; 

FO  LL i S LOT  5  H  -  CH A R STOR E  1(  1  7)  ; 

POLllSLGTSL  *  CNARSTORE1  (16)  ; 

FOILiSLOT6H  -  CHARSTORE  1(15)  1 
FOlliSiOThi  ■  CHA RSTOR E  1(^ 0)  ; 

GO  TC  COBSUFLOAD1; 

/♦*/ 

RS23*JH0CE J5ET:  IF  CC 1  <  9  THER  GC  TO  BODEER ROR 1 ; 

II  CHARSTORE 1 (9)  *  ,0*  THER  R52321 FLAG  *  OH; 

II  CHARSTORE  1  (9)  -  THE*  R5232SFLAG  *  01H; 

GC  TO  COBSUF  LOAD  1 ; 

/•V 

/**/ 

LATSBSGISE1:  IF  CC  1  <  9  THER  GO  TO  B.OD  EE  R  ROR  1 ; 

If  CHARSTORE 1  (9)  •  »0»  THEN  EATS BSGSF LAG  1  -  OH; 

IF  CHARSTORE  1  (  9)  ■  M*  THER  E  ATS  BSG  SF  LA  G  1  •  0  1H  ; 

II  CHARSTORE  1  (9)  *  »2*  IHER  EATSBSGl r LAG  1  -  02H; 

ChARSToREl (9)  •  E ATSBSGSF LAG  1  ♦  30H; 

GO  TO  COB  SUPLOAD  1 ; 


00960000 
00961000 
00962000 
00963000 
00964000 
G0965Q00 
00966000 
00967000 
00968000 
00969000 
00970000 
0097  1000 
00972000 
00973000 
00974000 
00975000 
00976000 
00977000 
00978000 
00979000 
00980000 
0096  1000 
00962000 
00963000 
00964000 
00965000 
00966000 
00967000 
00966000 
00969000 
00990000 
00991000 
00992000 
00993000 
00994000 
00995000 
00996000 
00997000 
00998000 
00999000 
01000000 
01001000 
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/•*/ 

EDACSflCL  EiSET  :  IF  CC1  <  9  TH  EH  GO  TC  A  OR  ERROR  1  ; 

If  C  HA  RSIOfi  E 1  (9)  -  M*  THEN  ED ACSF  LAG  «  OIH; 

1*  ChAhSTCRE  1  (9)  «  •O*  THEN  ED AC$F  LAG  «  OM ; 

GC  10  COnSUFLOADI; 

/*  V 
/•V 

A  DRC  H  A  NG  l :  IF  CC1  <  11  THEN  GO  TO  ADRERR0R1; 

ADR  1  ■  CHARSTORE  1  (9)  ; 

A  D  R  2  ■  CHARSTORE  1  (  10)  ; 

AD  R  3  *  CHAR  STOR  E  1  (11)  ; 

GO  TO  COflSUPLOAD 1  ; 

/**/ 

/**/ 

POLLiflCDt;  IF  CC  1  <  10  THEN  GO  TO  ACREftRORI; 

IF  CHARSTORE  1  (9)  *  *0'  THEN  POLLS  FLAG  -  OH; 

IF  CHARSTORE  1  (9)  *  •  1  •  THEN  POLLSFLAG  «  OIH; 

/•  mil  ALI2ATICH  OF  POLLING  MODE  •  / 

I)  CHARSTORE  1  (9)  -  •  1 '  THEN  P 0 L L S fl SG SCOU NT  -  0; 

If  Ch ARSTORE  1  (9)  *  THEN 

TCflf POLLSTXSSLOT  *  T C fl S PO LLSTX J S LOTSI N I T I  A L ; 

If  CH AKSlORE  1  (9)  *  *1*  THEN  fi EPO LLSFLAGSCOU N T  *  0; 

I)  CH ANSI  ORE  1  (9)  *  *1*  THEN  R  1 1 R A N Sfl ITS F L AG  *  OH; 

IF  CHARSTORE  1  ( 10}  «  *S*  THEN  A UTOiR E POL LS F L A G  *  OH; 

IF  CHARSTORE  1  (10)  «  •  il  •  THEN  A  UTOSR  EPOL  LSF  LAG  *  OIH; 

GO  TO  COBSUFLOAD1; 

/**/ 

/*•/ 

FOLLiINTLR  KIM  :  IF  CC 1  <  10  THEN  GC  TO  ADRER  ROR 1 ; 

IF  CHA RSTORE  1  (9)  *  *  1  *  THEN 

NTlflUOLLS  INTERRUPTirLAG  -  OIH; 

IF  CHA  RSTORE  1  (9)  *  *0  *  THEN 

NTCfl  iPOLLSlNTERRUPTSFLAG  *  OH; 

IF  CHARSTORE  1  (  10)  *  '1*  THEN 

IDAS POLLSI NTERRUPTSFLAG  »  OIH; 

IF  CHARSTORE  1  ( 10)  =  *0*  THEN 

TDflS FOLLJI NT IRRUPTSFLAG  -  CH; 

CHAR  STORE  1  (9)  »  N TDfl S PO LL S I N T E R R U PT $F L AG  ♦  3 OH ; 

CHAR  STORE  1  (10)  »  TDfl S POL L J I N I ER R U PTSF L AG  ♦  30H; 

GO  TC  COflSUPLOAD  1  ; 

/*•/ 

/*•/ 

NO Nl T DflJ CE LA YSSET  :  IF  CC1  <  10  THEN  GO  TO  A  DRERRQR  1  ; 

IF  CHARSTORE  1  (9)  <  30h  THEN  GC  TO  fl  ODE  £R  ROR  1  ; 

1)  C HARSTORE  1  (9)  >  39H  THEN  GC  TO  flODE  ER  ROR  1  ; 

IF  C hARSTORE  1  (10)  <  30H  THEN  GO  TO  flODEERROR  1; 

IF  CHAHSTCRE  1  (10)  >  39H  THEN  GO  TO  flO DEERROR  1; 

/*  CHARACTERS  9  C  10  ARE  DELAY  ENTERED  IN  SECONDS  •/ 

/♦  fl  A  X  I fl  U  fl  DELAY  IS  99  SECONDS  */ 

NTLflDELAYH  *  CH A R STO R E  1  (9 )  -  30H; 

NTtflCELAYL  ■  CHARSTORE  1  (  10)  -  30H; 

C  E  LA  Y  SC A i :  NONSTCflfflSGSDELAY  1  «  (NT  DrtDELAYH* JC  0  H )  ♦  (  NTDfl DEL  A Y l* 30H )  ; 

GO  TC  CORS  UP  LOA  D  1  ; 

/**/ 

/••/ 

/*  ADR  ihRCR  MESSAGE  •/ 

ADRLRHCR  1 :  DO  I  *  1  TO  30; 

GUTTAbLE  (TC  ♦  I)  *  AD R E R ROR H DR  ( I -  1)  ; 

END; 

WAITING  ■  WAITI NG  ♦  1  ; 

TC  -  TC  ♦  30; 

GUTTA  BLE  (TC  ♦  1)  -  ODH  ; 

GUTTABLE  (TC  *2)  *  OAK; 


01002000 

01003000 

01006000 

01005000 

01006000 

01007000 

oiooeooo 

01009000 
01010000 
01011000 
01012000 
01013000 
01016000 
01015000 
01016000 
01017000 
01016000 
01019000 
01020000 
0  102  1000 
01022000 
01023000 
01026000 
01025000 
01026000 
01027000 
01026000 
01029000 
01030000 
01031000 
01032000 
01033000 
01034000 
01035000 
01036000 
01037000 
01036000 
01039000 
01060000 
0  106  1000 
01062000 
01063000 
01066000 
01065000 
01066000 
01067000 
01066000 
01069000 
01050000 
0  105  1000 
01052000 
01053000 
01056000 
01055000 
01056000 
01057000 
01056000 
01059000 
01060000 
01061000 
01062000 
01063000 
01066000 
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1 


-HP  "Er 


f 

f 

f 

i 

i 


CUUACi£(TCf  3)  •  ADR  1 ; 

CUITAfil£(TC  ♦ 4 )  *  ADR*; 

GUTTAbLL  (TC  ♦  5)  *  ADRi; 

U»1TABLE(TC  *6)  -  03H; 
oUTTABiE  (TC  4  7)  *  03M  ; 

1C  »  TC  4  7; 

r.SGCOORT  (WAITiAG)  *  37; 

GO  TO  COflSUPLOAD  1  ; 

/••/ 

/♦  */ 

/•  ailitiohs  to  ci  tables  ♦  / 

/♦v 

/♦  CHLCK1N  TAblE  TRANSFERS  FRCn  TPU  B Y  COHSUP  COMMAND  •/ 

/♦V 

P  TT  J  LOAD  1 :  IF  C C  1  <  12  THEN  GO  TC  fiCDEERROR  1  ; 

u  Aurspci  4  NurJfici  4  auksaci  >*  QO  the a  go  to  overflow); 

LC  1  O  TO  C C 1  BY  4; 

AUHjPCI  -  NUrlPCI  4  1; 

rClJPOINTER  *  4  *  (AUMSPCI  -  1>  ♦  I ; 

10  j  •  0  TC  3; 

FCISSTORE  (PCUPOlNTER  )  • 

CHAASTORE  1  (1  4j)  ; 

ICISPOINTIR  *  PCISP01  AT  £  R  4  1; 

IRC; 

IF  AUimci  ♦  ROnlRCl  ♦  *D»$AC1  >*  80  THEM  GO  TO  TTS 10A  D$  E A  C  1 ; 
IF  (CC1  -  I)  <  4  THEN  GO  TC  TT  %  10  ADI  END  1  ; 

LAC; 

GO  TC  COM  5 UPLOAD); 

RT  Tl LOAD  1 :  IF  CC  1  <  12  THEN  GO  TO  MODE  ERROR 1 ; 

If  NUB1PCI  ♦  NUfl  $  RC I  4  NUHJAC1  >•  80  THEN  GO  TO  OVERFLOWl; 

CO  I  ^  9  TO  CC  1  BY  4; 

Aurunci  »  alhsrci  4  i; 

ACIJfGlATER  «  4  *  (RUf.SRCl  -  1)  ♦  1; 

LO  J  *  0  TO  3; 

RCIJSTORE  (FCXlPQI NTER  )  » 

CH ARSTORE  1  (I  4J)  ; 

RCIIPOIATLR  *  R  C I  $  PO INTER  4  1; 

£  A  C  ; 

If  MJMPCI  4  NunSRCI  4  A  Lift  S  AC  I  >«  80  THEN  GO  TO  TT$  LOADS  END  1 ; 
IF  (CC  1  -  I)  <  4  THEN  GO  10  TTlLOAC S E A  0 1  ; 

LAC; 


GO  TC  COHSUPLOA  D  1  ; 

ATiSiOADI;  IF  CC1  <  12  THEA  GO  TO  MOD EERROR  1 ; 

If  SUniPCl  4  AUHSRCI  ♦  AUHSACI  >■  80  THEA  GO  TO  OVERFLOWl; 

CO  1  *  9  TO  CC1  BY  4; 

AUMACI  -  A  U  H  $  A  C  I  4  1; 

AC  I J  PO I  AT  E  R  «  4  •  (AUBSACI  -  1)  ♦  1; 

CO  J  -  0  TO  3; 

ACIISTORE  (ACIJPOI ATER  )  » 

CHARSTORE  1  (I  4j)  , 

AC IJ POINTER  *  ACISPOJATER  ♦  1; 

EAC; 

IF  AUniPCI  ♦  A  U  fl  SR  CI  ♦  ADMIACI  >»  80  THEA  GO  TO  T TS LOA CS E A C  1 ; 
IF  (CC1  -I)  <  4  THEA  GO  TO  1T$LO*D$lHU  1 ; 

LAC; 

GO  TC  COMS  OP  LOA  D  1  ; 

TTSLCACS  LA  C  1 :  IF  AUMPCI  4  NUHSRCI  ♦  NUHSACI  >•  80  ThLA  GO 
TO  OVERFLOW  1; 

ELSE  CO  TO  COnSOPLOADt; 

/•  •/ 

/♦  •/ 

/•  PRIORITY  V 

/♦  */ 


01085000 
0 1 088000 
01087000 
01088000 
01089000 
01070000 
01071000 
01072000 
01073000 
01074000 
0  1076000 
01078000 
01077000 
01078000 
01079000 
01080000 
0108  1000 
01062000 
01083000 
0  1084000 
0  1005000 
01068000 
01087000 
01066000 
01009000 
01090000 
O1C910O0 
01092000 
01093000 
01094000 
01095000 
01098000 
01097000 
01098000 
01099000 
01100000 
01101000 
01102000 
01103000 
01104000 
01105000 
01108000 
01107000 
01106000 
01109000 
01110000 
01111000 
01112000 
01113000 
01114000 

oimooo 
01118000 
01117000 
01116000 
01119000 
01120000 
01121000 
01122000 
01123000 
01124000 
01125000 
01128000 
0  1  127000 
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/*  V 

Hi:  ir  aipspci  ♦  auhsrci  ♦  auasaci  >-  80  thea  go  to 

OVE RFLOW  1  ; 

auhspci  «  AunSPCl  ♦  i; 

PC  IS  POX  HE  fc  «  4  •  (  A  UR  S  PC  I  -  1  )  ♦  1; 

00  I  *  9  TC  12; 

PCIS SIORE (PCISPOIATER)  -  C H ARSTO* E 1  (I)  ; 

PCISPOIATER  *  PCISPOIATER  ♦  1; 

Ik  f; 

GO  TO  CO  MS  UP  LOAD  1  ; 

/♦  ♦/ 

/•  ♦/ 

/*  HOLT  IN  E  */ 

/•  */ 

/•  •/ 

KT1;  If  NUr.fPCI  ♦  AUflSRCI  ♦  AUfljACI  >«  80  THEA  GO  TO 

o ve afloa  1 ; 

MJ  ns  h Cl  »  A  in  SRC  I  ♦  1; 

PCISPOIATER  *  m  *  (  AUflSRCI  -  1  )  ♦  1; 

10  1  «  9  TC  12; 

PCliSTCK  l  (RCISFCIATER)  «  C  HARS  TOR  E  1  (I)  ; 

HClJPOlNItri  *  RCISPOIRTER  ♦  1; 

ERL; 

GO  TC  COKSUPlOADl; 

/•  */ 

/•  V 

/*  SC  TRAfHC  ♦/ 

/•  •/ 

/•  V 

ATI;  IT  ME.IPCI  ♦  AUHIRCI  ♦  AirWACI  >*  80  THEA  GO  TO 
OVERFLOW  1  ; 

AUnSACl  =  AinjACI  ♦  1; 

AC  IS  P  01  A  T  t  h  *  4  •  (  AUflSACI  -  1  )  ♦  1; 

LO  1  *  9  TC  12; 

AC1SSTGR l  (AClSFOIATER)  *  C H A R S TOP E  1  (I)  ; 

RCISPOIRTER  *  AClSFOIATER  ♦  1; 

EAL; 

GO  TO  CO RS IP LO ADI; 

/*  V 

/•*/ 

/♦  GROUP  CHECKIK  +/ 

/♦V 

GT1:  II  CC  1  <  11  THEA  GO  TO  ADREhRCRI; 

IF  AURSGCI  >=  64  THER  GO  TO  OVER  FLU  A2  ; 

A  *  C ; 

00  I  «  1  TC  16; 

AunSGCi  *  aursgci  ♦  i; 

GC  IS  P  01  AT  E  R  *  U*(AUflSGCI  -1)0; 

GC IS  STORE  (GCISPOIKTER)  *  C HA R STORE  1  (9)  ; 

GC1SST0RE  (GCISP01ATEF  ♦  1)  *  CH A RSTOR E  1  ( 10)  ; 

DO  CASE  A ; 

GClSSTCRl  (GC ISP01ATER  ♦  <)  «  *0'; 

GCliSTORE  (GCISPOI ATER  ♦  2)  •  M'j 
GCliSTORE  (GCISPOI ATEF  ♦  2)  -  •  2 '  ; 

GCliSTORE  (GCISPOI ATER  ♦  2)  •  *  3  * ; 

GCISSTORI  (GCISPOI ATER  ♦  i)  ■  '4*; 

GClSSTORl  (GCISPOI ATER  ♦  2)  »  'S'; 

GCliSTORE  (GCISPOI ATER  ♦  2)  •  *6*; 

GCISSTORE  (CCISPOIATER  ♦  2)  -  1 7  •  ; 

GClSSTORl  (GCISPOI ATER  ♦  2)  •  *8'; 

GCliSTORE  (GCISPOI ATER  ♦  2)  ■  *9*; 

GCISSTORE  (GCISPOIATER  ♦  2)  -  'A*; 

GClSSTORl  (GCISPOI ATER  ♦  2)  •  *8'; 


01  120000 
01129000 
01130000 
01131000 
01132000 
01133000 
01134000 
01135000 
01136000 
01  137000 
01138000 
0  1  139000 
0 1  140000 
0  1  14  1000 
01  142000 
01  143000 
01  144000 
01  146000 
0  1  146000 
01147000 
01  148000 
0  1  149000 
01150000 
01151000 
01152000 
01153000 
01154000 
01155000 
0  1  156000 
01157000 
0  1  158000 
01159000 
0  1  160000 
0 1 16  1000 
01  162000 
01  163000 
0  1  164000 
0  1  165000 
0  1  166000 
0  1  167000 
0  1  168000 
0  1  169000 
01170000 
0 1 17 1000 
0  1  172000 
01173000 
0  1  174000 
01  175000 
0  1  176000 
01177000 
01176000 
0  1  179000 
01  180000 
01  18  1000 
0  1  162000 
01183000 
0  1 104000 
01165000 
01186000 
01187000 
01  188000 
0  1  169000 
0  1  190000 
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GCllSTORE  (GCIIPOINTER  ♦  2)  -  *C#; 

01191000 

GCllSTORE  (GC IS POINTER  ♦  2)  ■  *D»; 

01192000 

GCllSTORE  (GCIIPOINTER  ♦  2)  -  •£•; 

01193000 

GCllSTORE  (GCIIPOINTER  ♦  2)  -  *r'; 

01194000 

lUti 

01196000 

a  *  n  ♦  1 ; 

01196000 

GCI JSTOBE  (GCIIPOINTER  ♦  3)  ■  CHARS  TOR E 1  ( 1 1)  ; 

01  197000 

G Cl  1 f  01  NT  EB  -  GC 1SP01 NTER  ♦  6; 

01198000 

If  NUHIGCI  >-  64  THEN  GO  TO  CV  E  Rf  LON  2 ; 

01199000 

END; 

01200000 

GO  1C 

corsif load i ; 

0  120  1000 

01202000 

✓  *V 

01203000 

CHECKINIEEIETE:  If  CC  1  <  11  THEN  GO  TO  AD8ERROR1; 

01204000 

N*4; 

01206000 

I i  C hA  R  STORE  1(9)  ■  ‘P*  THEN  N  •  0; 

01206000 

If  C  H A R S TORE  1  (9)  *  *R*  THEN  N  -  1; 

01207000 

If  CHARSTORE 1 (9)  -  'N*  THEN  N  -  2; 

01208000 

IT  ChAKSTORE 1 (9)  -  *  G  *  THEN  N  -  3; 

01209000 

✓  * 

V 

01210000 

IF  A  *  4  THEN  GO  TO  HODEER NCR  1 ; 

01211000 

If  C  h A  fi  S 1  OR  E  1  (10)  -  30H  >  6  THEN  GO  TO  HODEERRORl; 

01212000 

If  C hAhSTORE  1  (  1 1)  -  30  H  >  9  THEN  GO  TO  HODEERRORl; 

01213000 

/* 

V 

01214000 

J 

*  tc  HAHSTORE  1  (10)  -  3  0  H)  •  10  ♦  (CH  ARS  TO  A  E  1  l  1 1 )  -  30H); 

01216000 

/♦ 

V 

01216000 

DO  C  AS  E  N  ; 

01217000 

If  J  >  NUHSPCI  THEN  GO  TO  H CD E ER R OK  1 ; 

01218000 

if  J  >  NUHIRCI  THEN  GO  TO  H CD E  ERROR  1; 

01219000 

If  J  >  NUHINCI  THEN  GO  TO  HCDEERROh 1 ; 

01220000 

ir  J  >  NUHIGCI  THEN  GO  TO  RODE  ERR  OR  1  ; 

01221000 

END; 

01222000 

/♦ 

*/ 

01223000 

DO  CASE  N; 

01224000 

I)  NUHSPCI  -  0  THEN  GO  TO  RO DEERROR  1  ; 

01226000 

I*  NUHiRCI  *  0  THEN  GO  TO  HODEERRORl; 

01226000 

If  NUHINCI  -  0  THEN  GO  TC  HODEERRORl; 

01227000 

If  NUHIGCI  *  0  THEN  GO  TO  HODEERRORl; 

01228000 

INC  ; 

01229000 

/* 

*/ 

01230000 

DO  CASE  N ; 

01231000 

DO  I  *  TO  4*NUHSPCJ ; 

01232000 

PC1ISTORE  (1-4)  -  PCIIS1CRE  (1)  ; 

01233000 

END; 

01234000 

DC  I  «  4*J*1  TO  4*NUH$RCI; 

01236000 

RC I J STORE  (I  -4)  •  RCIf STCHE  (I)  ; 

01236000 

END; 

01237000 

DC  I  -  4 • J ♦ 1  TO  4 • N  UHl N Cl; 

01238000 

NCIISTORE  (1-4)  «  NCI JSTCR  E  (I)  ; 

01239000 

END; 

01240000 

DC  I  -  4tJ^1  TO  4*NUHlGCI; 

0124  1000 

GC1SSTORE  (1-4)  «  GC1ISTCRE  (I)  ; 

01242000 

END; 

01243000 

END; 

01244000 

/♦ 

V 

01246000 

DO  CASE  N; 

01246000 

NUHlPCI  •  NUHSPCI  -  1; 

01247000 

NUHiRCI  -  NUHIRCI  -  1; 

01248000 

NUHINCI  -  NUHINCI  -  1; 

01249000 

NUriOCI  -  NUHIGCI  -  1; 

0  1250000 

01261000 

/* 

*/ 

01262000 

DO  CASE  N ; 

01263000 

100 


I 


i 


i 

i 

# 

? 


PtlSPOIATER  *  PCISPOIHTIR  -  4; 

01254000 

RC 1SPOXMTER  *  RCISPOIHTIR  -  4; 

01255000 

N  CIS  POl  N  T  £  ft  •  ACTSPOINTER  -  4; 

0  1255000 

GClSPOIRTER  *  GCISPCINIFA  -  4; 

01257000 

IRC; 

01258000 

/*  */ 

01259000 

GO  TC  COASUPLOADI; 

01250000 

01251000 

/•V 

01252000 

/*  r.PU  Cl  NUMbER  TEST  */ 

01253000 

/♦V 

01254000 

/♦*/ 

01255000 

npuciAUimsi l;  if  kuhsnci  ♦  ruhspci  ♦  ai/hsrci>*  uo 

01256000 

TMIA  GO  TO  CVJRELQWl; 

01257000 

ELSE  GO  TO  C OH  SUP  LO  At)  1  ; 

0 1  256000 

01259000 

/**✓ 

0  1  27GOQO 

/*  OR  IB  flOH  MESSAGE  */ 

01271000 

/*♦/ 

01272000 

/*  V 

01273000 

OVERFLOW  1;  CihCDE  «  *0*  ; 

01274000 

0 V  ER  F  LG w  2 ;  CO  I  •  MO  27; 

01275000 

CU  t  ST  A  fct  l  (  TC  ♦  I  )  »  04  ERFlOW  HER  (I  -  1  )  ; 

0  1 275000 

LAD; 

01277000 

A  A  IT  1  AG  *  WAI1IAG  ♦  1; 

01278000 

TC  *  TC  ♦  *7; 

01279000 

DUTIABLE  (TC  ♦  1)  •  03K; 

01260000 

GUTTAfcLE  (TC  ♦  i)  *  03h; 

0U6  1000 

TC  *  TC  ♦  4 ; 

01262000 

fi SCC OU AT  (WA1TIAG)  *  29; 

0 1 2b  3000 

CC1  «  0; 

01264000 

GO  TO  CPoiHOI; 

01265000 

/*  */ 

01266000 

/*  V 

01267000 

/*  CfUCKIA  null  SET  ♦/ 

01266000 

/♦  *✓ 

0  1  *69000 

/*  */ 

01290000 

CHECMNRCDISIT  1 :  U  CC1  <  9  THEN  GC  TO  ADRERRCR1; 

01291000 

11  CHARSTGRt 1  (9)  *  *0*  THEN  CSrtOCE  *  'O'; 

0  1  *92000 

IE  CHARST0RE1  (9J  -  M«  THEN  ClHOOE  *  M »  ; 

01293000 

ELSE  CSnODE  «  »Cf  ; 

01294000 

IF  AOfiPCJ  +  AOHSRCl  ♦  RUrtSKCI  >*  bC  THEN  GO  TO  OV  ER  F  LOR  1  ; 

01295000 

ELSE  GC  TO  C0ASUPLQAD1 ; 

01296000 

/♦V 

01297000 

/♦V 

01298000 

/♦  RESET  C)  CHECKIN  TABLES  ♦/ 

01299000 

/♦♦/ 

01300000 

/♦♦/ 

0130  1000 

PCIAESET;  AUHJPCI  *  G; 

01302000 

fClfPOIATER  «  0; 

01303000 

GO  TO  CQRSOPLOAD  1 ; 

01304000 

RC2RE5ET;  kUftS&CI  *  0; 

01305000 

RC  X  S  POINT  ER  -  0; 

01306000 

CO  TO  COKSU PLOAD  1  ; 

01307000 

AC1RESET;  AU6SNCI  •  0; 

0  f  306000 

RCLSPOIRTER  -  0; 

01309000 

GO  TO  CQFlSifPlOMV  1 ; 

01310000 

GCXRESET;  NUftSGCt  *  0; 

01311000 

GC 1$  POINTER  *  0; 

01312000 

/•*/ 

OM1300O 

/*♦/ 

01314000 

/♦  COMSOP  MSG  RETURN  TO  TERMINAL  OPERATOR  */ 

01315000 

/#V 

101 

01316000 

t 

i 


101 


/**/ 

C0HSUH0AD1:  DO  I  -  1  TO  CCI; 

OUT$TABLE(  TC  ♦  I  )  «  CH ARSTOR  E  1  (I)  ; 

eno; 

TC  «  TC  ♦  CCI; 

AAZT1NG  •  BAITING  ♦  1; 

OUTIABLE  (Tt  ♦  1)  *  03H; 

OUTTABIE  (TC  *2)  -  03H; 

TC  «  TC  ^2; 

nSGSCOUNl (WAITING)  «  CCI  +2; 

nocohsup Load i :  cci  -  0; 

GO  TO  CPOL 1)01; 

/*  •/ 

/*  EhRCR  MESSAGE  DUBP  ♦/ 

/♦V 

/**/ 

f  ODE  E  A  RO  n  1  :  1)0  1  •  1  TO  30; 

CU1$T  Ab  LE  (  TC  ♦  1  )  -  ERRORHDh  (1  -  1)  ; 

ERL; 

TC  -  TC  ♦  jG; 

A  A  IT  I  AG  *  hAITI AG  ♦  1; 

r.SGCOUAI  (HATTING)  »  G  ; 

BSGCOUAT  (tf AITIAG)  *  KSGCOUNT  (WAITING)  ♦  30; 
CCI  -  G; 

GO  TO  CPGLL  10 1 ; 

/*V 

/*  */ 

/*  TABLE  TRANSFERS  */ 

/*  ♦/ 

/*  HAKE  UE  HEADER  */ 

/*  ♦/ 

T I h 1 ;  OUTTAELE  1  (TC  1  ♦  1)  * 

CUTTABLE  1  (TC  1  ♦  2)  •  CHARS TO RE1  (9)  ; 

TC  II A 22 1 AL  *  1C); 

DO  I*  1  TO  3; 

DUTIABLE  1  (  TCI  t  2  ♦  I)  »  CHAR  Si  CEE  1 (  1*3  ) 
END; 

/♦  V 

/•  SELECT  TABLE  •/ 

/♦  V 

IF  ChAhSTORE)  (9)  »  •*'  THEN  GO  TO  PTTfil; 

If  CHAASTORE  1  (9)  «  THEN  GO  TO  RTTR1; 

IF  CHARS TO  hi)  (9)  «  'l'  THEN  GO  TC  ATTR1; 

IF  CHARSTOhE  1  (9)  •  • T  *  THEN  GO  TO  PCLLTTR  1; 

ELSE  GO  TO  KOCE ERROR  1  ; 

/•  V 

/«■  */ 

/*  PCI  TABLE  LOAD  */ 

/♦  V 
/*  V 

fTTR  1  :  IF  ACnSPCI  »  G  THEA  GO  TO  TFRERRORl; 
WAITING  1*  nAITINGI  ♦  1; 

BSGCOUAT  1  (nAITING  1)  ■  C; 

TC  1  •  IC  1  ♦  b; 

A  *  «*AUMPCI; 

DO  I  -  1  TO  N; 

OUTTABLE  1  (  TO  ♦  1)  *  PCI  SSTOKE  (I)  ; 

END  ; 

TC  1  *  TC  1  ♦  N  ; 

OUT! ABLE  1  (1C  )♦  1)  *  G3H; 

OUTTABIE  1  ( IC  1*2)  *  C3H; 

TCI  «  TC  t  ♦  2; 

BSGCOUAT  1  (BAITING  1)  -  TCI  -  TCUUT1AL; 


01317000 
01318000 
01319000 
01320000 
01321000 
01322000 
01323000 
01328000 
0  1  32SOOO 
01328000 
01327000 
01326000 
01329000 
01330000 
01331000 
01332000 
01333000 
01338000 
0  1  33SOOO 
0  1  336000 
01337000 
01338000 
01339000 
01380000 
01381000 
0)382000 
01383000 
01388000 
0 1 38  5000 
01386000 
01387000 
01380000 
01389000 
01350000 
01351000 
01352000 
01353000 
01358000 
01355000 
01356000 
01357000 
01358000 
01359000 
01360000 
0  136  1000 
01362000 
01363000 
01368000 
01365000 
01366000 
01367000 
01368000 
01369000 
01370000 
01371000 
01372000 
01373000 
01378000 
0  1  375000 
01376000 
01377000 
01378000 
01379000 
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CO  TO  CORS UNLOAD  1 ; 

✓  *  •/ 

/*  */ 

/*  hCI  1 A  fc  t £  LOAD  •/ 

/•  */ 

/* 

8TTR  1  :  IF  AUfllRCI  *  0  THEN  GO  TO  T  FRERROR  1 ; 
MA1T1NC1-  AAITING1  ♦  1; 

HSGCQUAT  1  (  AAITIAG  1)  •  0; 

TCI  -TCI  ♦  S; 

A  *  4*AUH*RCI; 

DO  I  »  1  TO  A; 

CUTTAtl£1(  TCI  ♦  I)  •  RCISSTOhE  (I)  ; 

FAD  ; 

TCI  *  TC  1  ♦  N  ; 

OUTTAblE  1(Ubl)  •  0  3H  ; 

OUTTAbLL  1  (1C  U2)  •  03H; 

TCI  -  TCI  ♦  2 ; 

BSGCOUAT  1  (-A1TIAG1)  *  IC  1  *  TC1IMT1AL; 

GO  TO  COKSUFLOAD  1; 

/♦  V 

/•  •/ 

/*  A C 1  T  A  L  L  E  LOAD  •/ 

/*  */ 

/• 

ATT A  1  :  IF  AUHIACI  *  C  THEN  GO  TO  TFFERRORI; 
nAITIAtl*  AAIT1AG1  ♦  1; 

BSGCtUAT  1  (HAITI  AG  1)  *  0 ; 

TCI  «  TCI  ♦  5 ; 

A  *  4  +  AU H j  ACI ; 

DO  I  -  1  TO  a; 

OUT! A  H  t  1  (  TCI  ♦  I)  *  ACISSTOhE  (I)  ; 

EAC  ; 

TC  1  -  1C  1  ♦  A ; 

OUTTAblE  1  ( 1 C  1  ♦  1 )  •  0 JH ; 

OUTTABLE  1(111  +  2)  *  OjH ; 

TCI  «  TCI  ♦  *  ; 

nSGCOUAT  l(AAITIAGl)  *  TCI  -  TClIMTIAL; 

GO  TC  COHSUJ  LOAD  1  ; 

/*  V 

/•  •/ 

/*  POLL  TABLE  LOAD  (  ALL  CALL  )  +  / 

/•  •/ 

/*  •/ 

POLL! 1 A  1  :  IF  F  T  ICO  U  AT  1  <-  0  THEA  GC  TO  TFP  E  RhOF  1 ; 
mAITIAGI-  -AITIAG1  ♦  1; 

HSGCOUAT  1  (-AITING  1)  •  C; 

TCI  «  TCI  ♦  S  ; 

LO  I  -  1  TO  r  T  ICO CAT  1  ; 

OUTTABLE  1  (TC  1  ♦  I)  -  POLITABLL  1  (I)  ; 

LAD  ; 

TCI  «  TC  1  ♦  PT  KOUAT  1  ; 

OUTT  ABLl  1  (It 1  +  1)  •  03H ; 

OUTTABLE  1  (It  M2)  •  03H; 

TC  1  ■  TC  1  ♦  2; 

HSGCOUAT  1  (-AITI  AG  1)  »  TCI  -  TClIMTIAL, 

GO  TO  COHSUS  LOAD  1  ; 

/**/ 

/♦*/ 

/*  TAbLE  TkAASFEF  ERROR  HESSAOi  CLAP  */ 

/*•/ 

TFREFiROR  1:  to  I  ■  1  TO  33; 

CtITAbLt  (TC  ♦  I)  •  TF hlRRORHDF  (I- 1)  ; 


01380000 
01381000 
01382000 
01383000 
01364000 
01385000 
01386000 
01387000 
01388000 
01369000 
01390000 
0139  1000 
01392000 
01393000 
01394000 
0139S000 
01396000 
01397000 
01398000 
0)399000 
01400000 
0140  1000 
01402000 
01403000 
01404000 
014CS000 
0  1406000 
01407000 
01408000 
01409000 
01410000 
0  14  1  1000 
01412000 
0  14  1  3000 
01414000 
0  14  15000 
0  14  16000 
01417000 
0  14  18000 
014  19000 
0  1420000 
01421000 
0  1422000 
01423000 
01424000 
0142SOQ0 
0  1426000 
01427000 
01426000 
01429000 
01430000 
0  143  1000 
0  1*4  32000 
0 1 u 33000 
0  143*000 
0  1435000 
0U36000 
01437000 
01436000 
01439000 
01440000 
0144  1000 
01442000 
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END; 

0 1 U43000 

IC  *  TC  4  33; 

01444000 

toAITING  -  HAITI  MG  ♦  1; 

01445000 

HSGCOUNT (WAITING)  -  33; 

01445000 

CC1  -  0; 

01447000 

GO  TO  OPOLHOI; 

01446000 

/*  */ 

01449000 

/*  ♦/ 

01450000 

/to  TAbLE  CUHPS  ♦/ 

0145  1000 

/*  */ 

01452000 

/*  ♦/ 

01453000 

/*  HAKE  Ot  HEADER  ♦/ 

01454000 

/*  *✓ 

01455000 

/*  ♦/ 

01458000 

TBLDUHP1:  IF  CCl  <  12  THEN  GO  TO  ADAEAA0R1; 

01457000 

OUTTTA  B1.I  (TC  ♦  1)  *  01H; 

01456000 

GUTST AbL  E  ( TC  ♦  2)  *  »3'; 

0)459000 

TC  *  TC  ♦  2; 

01460000 

DO  I  *  1  Tt  3  ; 

0146  1000 

OOr|TAfcLl(  TC  ♦  I  )  *  CHARSTOREM  1*9  )  ; 

0 1462000 

INC; 

01463000 

TC  *  1C  ♦  3; 

01464000 

to AIT  1 NG  *  toAITING  ♦  1; 

01465000 

HSGCOUAT (toAITING  )  «  5; 

01466000 

/*  V 

01467000 

/*  •/ 

01468000 

/♦  SELECT  TABLE  ♦/ 

01469000 

/*  V 

01470000 

/•  V 

01471000 

IF  CKAASIOAE  1  (9)  *  *0*  THEN  GO  TO  GTABLEDUHP  1 ; 

01472000 

IF  CHAASTQ  Ail  (9)  «  *p*  THEN  GO  TO  F  1 ABLEDUHP  1 ; 

0 1 4  7  3000 

IF  CHAtvSTO  AL  1  (9)  *  1  A  1  THEN  GO  TO  A 1A0LEDUHP  1 ; 

0 1474000 

IF  CHAAS10AE  1  (9)  •  %*  THEN  GO  TO  NlABLEDUHP  1; 

01475000 

IT  CHARS  TO  Ai  1  (9)  *  'C*  THEN  GO  TC  PCilTABLEDUtlP  1 ; 

01476000 

ELSE  G C  TC  HODIIAftOJM; 

01477000 

/♦  ♦/ 

01470000 

/♦  */ 

01479000 

/♦  PA1CR1T*  to/ 

01400000 

/•  */ 

0140  1000 

/*  */ 

01462000 

PTAbLEDUttPI:  LO  I  «  1  TO  29; 

01483000 

OUT>TAB LE  (TC  *  I)  •  PIDHEADEh  (1  -  1); 

01464000 

END; 

01485000 

ZC  •  SC  «  <9  ; 

01486000 

H SGCOU A 7  (WAITING)  *  t.  SGCOU  NT  (W  A  I  T  I  NG)  ♦  29  ; 

01407000 

IF  NUfliPCI  «  0  THEN  GO  TO  CO HSU P LO A C  1  ; 

01460000 

A  »  1; 

01469000 

/*  OUTPUTTING  OF  PCI  TABLE-  8  ChECNINS  PEA  UNF  */ 

0  1490000 

PTAfeiibUJLCI:  DO  I  *  1  TO  8; 

0149  1000 

DC  J  *  1  TO  D; 

01492000 

TC  •  1C  ♦  1; 

01493000 

H SGCOU NT  (toAITING)  *  H  SGCOU  NT  (H  A  I  T  1  SC)  ♦  1; 

01494000 

CUTSTABLE  (TC)  »  PC XSSTCh  t  |N)  ; 

0  1  **95000 

11  N  >•  PCISPOINTE*  THEN  CO  TO  COBSUPlOADl; 

01496000 

A  *  A  ♦  1; 

01497000 

ENL; 

01498000 

TC  ■  TC  ♦  1  ; 

0 1499000 

OUTITABLE  (1C  )  -  2CH  ; 

01500000 

H5GC0UAT  (to  AITI  AC)  ■  P 5 GCOU  N T  («  A  I  T I  AC)  ♦  1  ; 

0150  1000 

E  A  D; 

01S02000 

TC  •  TC  t  1  ; 

01503000 

OUTSTABLE  (TC  )  »  ODh ; 

0  1 56*000 

TC  *  TC  *  1; 

01505000 
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OUTITAbLE  (IC  )  •  OAH; 

fISGCOUNT  (WAITING)  -  HSGCQUNT  (WAITING)  ♦  2  ; 

GO  TO  PTABUBUIIDI; 

/•  V 

/*♦/ 

/*  ROUTINE  */ 

/**/ 

/*  V 

hTABLELUnPl:  DO  I  -  1  TO  2  B; 

OUTITAbLE  (TC  ♦  I)  »  RTDHEADER  (I  - 1)  ; 

END; 

1C  *  1C  ♦  2b; 

r.SGCOUAT  WAITING)  *  RSGCOUNT  (WAITING)  ♦  28; 

If  NUflINCI  *  0  THEN  GO  TO  COHSUPLOAD1; 

N  *  1 ; 

/*  OUTPUTTING  OF  RCI  TABLE-  8  CHECKINS  PER  LIKE  V 
RTABLEbUILL  1 :  DO  I  *  1  TO  8; 

DO  J  *  1  T c  ** ; 

TC  .  TC*  1; 

fISGCOUNT  (WAITING)  -  fISGCOUNT  (WAITING)  ♦  1; 

OUTITAbLE  (1C)  •  RC IlSTO R E  ( N)  ; 

IF  N  >«  RC 11 POINTER  THEN  CO  TO  CORStPLOADI; 

N  -  N  *  1; 

END; 

TC  *  TC  ♦  1; 

OUTITAbLE  (1C  )  «  20h  ; 

fISGCOUNT  (WAITING)  *  RSGCOUNT  (WAITING)  ♦  1; 

END; 

TC  *  TC  ♦  1; 

QUIllAfaLE  (TC  )*  ODH; 

TC  *  TC  ♦  1  ; 

OUIJTABLt  (1C  )  «  OAH; 

fISGCOUNT  (WAITING)  *  fISGCOUNT  (WAITING)  ♦  2; 

GO  TO  hT  AB  L  L  tiU  I  LD  1  ; 

/•V 

/•V 

/*  N  C  TRAFFIC  */ 

/•*/ 

NTABLEDUflP  1:  CO  I  -  1  TO  31; 

OUTITAbLE  (TC  ♦  I  )  »  NT DHE A DER  ( I - \) ; 

END; 

TC  *  TC  ♦  31; 

fISGCOUNT  (WAITING)  »  n  SGCOU  N  T  (N  A  IT  I  NC)  ♦  3  V, 

IF  NtniNCI  *  0  THEN  GO  TO  CC HSU P LC A L  1  ; 

N  *  1  ; 

/*  OUTPUTTING  Of  NCI  TABLE  -  8  CHECKINS  PER  LINE  */ 
NTAbLEbUILC  1:  DO  I  *  1  TO  b; 

DC  J  *  1  TO  4; 

1C  *  TC  *  1; 

fISGCOUNT  (WAITING)  ■  R  SGCOU  NT  (W  A 1 TI  N  G)  ♦  1; 

OUTITAbLE  (TC  )  *  NCIfSTORE  (N)  ; 

IF  N  >«  NCIIPOINTER  THEN  GO  TO  COfl SIPLOA D 1 ; 

N  *  N  ♦  1; 

END; 

TC  *  TC  ♦  1; 

HSOCOUNT  (WAITING)  -  KSGCOUNT  (WAITING)  4  1; 

OUTITAbLE  (TC)  «  20H; 

END; 

TC  •  TC  *  1; 

OUTITABLE  (TC)  *  ODH ; 

TC  «  TC  ♦  1; 

OUTITAbLE  (TC)  •  OAb; 

f.SGCOUNT  (WAITING)  -  rSGCOUNT  (WAITING)  ♦  2; 


01506000 
0  1S07000 
01508000 
0  1509000 
01510000 
0  1511000 
0  IS  12000 
0  IS  1 3000 
01S  14000 
01S15000 
0151 8000 
01517000 
01518000 
01519000 
01520000 
01521000 
01522000 
01523000 
01524000 
01525000 
01528000 
01527000 
01528000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01535000 
01536000 
01537000 
01S38000 
01539000 
01540000 
0154  1000 
01542000 
01543000 
0 1 544000 
01545000 
01546000 
01547000 
01548000 
01549000 
01550000 
01551000 
01552000 
01553000 
01554000 
01555000 
01556000 
01557000 
01558000 
01559000 
01560000 
01561000 
01562000 
01563000 
01564000 
01565000 
01566000 
01567000 
01568000 
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GO  TO 

NTAB 1EBUILD  1  ; 

0 1589000 

/♦V 

01570000 

/•♦/ 

01571000 

/* 

GROUP  CHECKIN  ♦/ 

01572000 

/*♦/ 

01573000 

GTA6L  EDUNP t ;  DO  1  *  1  TO  2 6; 

01574000 

OUTTABLE  (1C  ♦  1)  *  GTDHEADER  (I  -  1)  ; 

01575000 

END; 

01578000 

TC  - 

TC  4 

01577000 

nSGCOUNT  WAITING)  *  nSGCOUNT  (WAITING)  ♦  2  6; 

0 1578000 

IF  NUnSGCI  *  G  THEN  GO  TO  COHSUPLOAC1; 

01579000 

k*  1; 

01560000 

/*  OUTPUT  11 NG  OF  GCI  TABLE  -  8  CHECKINS  PER  LINE  */ 

01561000 

GT  Ab  L  EBU  2  L  D  1 :  DC  I  «  1  TO  8; 

01582000 

CO  J  *  1  TO  L; 

01563000 

TC  -  TC  4  1; 

01564000 

HSGCOUNT (WAITING)  *  flSGCOU NT  (WA ITI NG)  4  1; 

01565000 

OUTTABLE (TC)  -  GCISSIOh  E (N)  ; 

01568000 

IF  N  >-  GCISPOINTER  THEN  GO  TO  COHSUPLOAD1; 

01567000 

h  *  N  4  1; 

01586000 

END; 

01569000 

TC  *  TC  4  1; 

01590000 

OLIIABLE  (TC)  *  20 H ; 

01591000 

NSGCOUNT  (WAITING)  *  HSGCOUNT  (WAITING)  4  1; 

01592000 

END  ; 

01593000 

TC  *  TC  4  7; 

01594000 

OUTTABLE (TC)  *  0 DH  ; 

01595000 

TC  *  TC  4  1; 

01596000 

OUTIAblE(TC)  *  OAH; 

01597000 

NSGCOUNT (WAITING)  -  NSGCOUNT  (WAITING)  4  2; 

01596000 

GO  TO  GTABLEBUILD  1 ; 

01599000 

/*♦/ 

01800000 

/•V 

01601000 

/* 

POLL  V 

01602000 

/•V 

01603000 

/•V 

01604000 

P0LLTAfcLEDUhP2 :  WAITING  *  WAITING  4  1; 

01605000 

TOT A L J N UNlC  I  -  NUNiPCl  4  NUHlhCI  4  NUNSNCI  4  NUHlGCI; 

01606000 

PT1COUNT1  -  U  *  TOTALSNUflSCI ; 

01607000 

/• 

RESET  OF  FOLLING  NODE  PARAMETERS  */ 

01608000 

POLLSFLAG  -  0; 

01609000 

REPCLLSFLAGSCOUNT  »  0; 

01610000 

fOlLSNSCSCODNT  *  0; 

01611000 

TDr.SPOLLSTXSSLOT  *  TDNSPO L  LlTlSS LOT 1 1  N I T1 A L ; 

01612000 

PO LLT AbLEDUNF  1:  II  TOTALSNUHSCI  =  0  THEN  CO  TO  C0NSUPL0AD1; 

01613000 

IF 

CHARSTORE  ?  (13)  *  *R*  THEN  POlUTABLESTX  SI  LAG  *  0  1H  ; 

01614000 

ELSE  P0LLSTABLES1XSFLAG  «  OH; 

01615000 

DO  I 

•  1  TC  28; 

01616000 

OUTS  TAEL  E  (TC  4  I  )  •  POLL  DUflPHDR  ( I  -  I)  ; 

01617000 

END; 

01618000 

TCINITIAL  *  TC; 

01619000 

TC  * 

TC  4  2b; 

01620000 

/*  OUTPUTTING  OF  POLL  TABLE-  8  ChECKlNS  PER  LINE  */ 

01621000 

P0LLDURPBU1LD1 :  1INEC0UNT  •  0; 

01622000 

N-  0; 

01623000 

/♦ 

SLOT  ASSIGNMENT  HEADER  -  FIRST  LINE  V 

01624000 

/**/ 

01625000 

J  *  1 

• 

01626000 

OUTT ABLE  (T C  ♦  1)  »  26H; 

01627000 

OUT!  ABLE  (T C  4  2)  •  POLLSSLOT1H; 

01628000 

OUTT  ABLE  (T  C  4  3)  •  POLlSSLOTU; 

01629000 

OUTTABLE  (TC  4  U)  •  29H; 

01630000 

OU TTAblE  (TC  4  b)*  20H; 

01631000 

6 


TC  *  TC  ♦  5 ; 

LlAECOUAT  *  LlAECOUAT  ♦  5; 

LOADADh:  DO  I  -  1  TO  4 ; 

OUTTABLE  (TC+I)  «  PO L LT A fcLE  1  (N ♦!)  ; 

EAC; 

A  -  A  ♦  4  ; 

OUTTAbLE  (TC*5)  -  20H; 

LlAECOUAT  *  LI MECGUAT  ♦  5; 

TC  *  TL  ♦  5; 

II  A  >»  FT  1COU  AT  1  THEA  GO  TO  EADLCAL; 

If  LlAECOUAT  <  45  THEN  GO  TO  LOACACR; 

ELSE  GO  10  EADLCAC  ; 

EADLCAD:  0  U1 TABLE  (TC*  1)  *  0  DM ; 

0  (JTTABL  E  (TC ♦ 2)  -  OAH; 

TC  *  TC  ♦  2; 

LlAECOUAT  *  0; 

HSGCOUMT  (WAITING)  •  HSGCOUMT (WAITING)  ♦  ( TC - TCI  A IT1 A L )  ; 

TCIAITIA1  -  TC; 

If  A  >*  PT1C0UMT1  THEM  GO  TO  PO L LS 1 AB L ESTX ; 

/♦  SLOT  ASS1GAHEAT  HEADER  -  ADD 1 L  LIMES  */ 

OUTTABLE  (TC  ♦  1)  »  2bH; 

LO  CASE  J; 

OUTTABLE  (TC  ♦  2)  *  POLLJSLOTlH; 

OUTTABLE  (TC  ♦  2)  ■  P0LLSSL0T2h; 

CUT7A  bL  E  (TC  ♦  2)  «  P0LLSSL0T3H; 

OUTTAbLE  (TC  ♦  2)  «  P0LLJSL0T4H; 

OUTTAbLE  (TC  ♦  2)  »  P0LLSSL0T5H; 

OUT! A  BL  E  (TC  ♦  2)  •  POLL JSLOTb H  ; 

E  it  Li  ; 

LO  CASE  J; 

OUTTABLE  (TC  ♦  3)  *  POLLSSIOTU; 

OUTTAbLE  (IC  ♦  3)  •  P0LLISL0T2L  ; 

OUTTAbLE  (TC  ♦  3)  *  POLLSS  LOT  3  L  ; 

OUTTAbLE  (TC  ♦  3)  «  POLLlS L0T4 L  ; 

OUTTAbLE  (TC  ♦  3)  *  P0LLSSL0T5L; 

OUTTAbLE  (TC  ♦  3)  •  POLL JS LOTS  L  ; 

EAD; 

OUTTAbLE  (T  C  ♦  4)  «  29H; 

OUTTAbLE  (T  C  ♦  5)  *  20H ; 

TC  ■  TC  ♦  5; 

LlAECOUAT  *  LlAECOUAT  ♦  S; 

J  »  J  ♦  1; 

If  J  >  5  THEA  J  -  0; 

GO  TO  LO  AD  A  L  R  ; 

/*  V 

POLLATABLE JTX :  If  FOL LS TAB LEJTX $ f LAC  <>  0  1H 
THEA  GO  TO  COHSUf  LOAD  1  ; 

A  A 1 1 1  AG  1  *  HAITI  AG  1  ♦  1; 

DO  1  1  *  1  TO  HSGCOUMT  (HAITIAC)  ; 

OUTTABLE  1  (TC  WI  1)  -  OUTTABLE  (TC  ♦  I  1-HSGCOUM  T  (HAITI  AG)  )  ; 

EAD  ; 

/•  •/ 

/•  ALL-CALL  HEALER  SUBSTITUTICA  ♦/ 

OUTTABLE  1  (TCI  ♦  1)  •  *S»; 

OUTTABLE  1  (TC  1  ♦  2)  ■  •L*  ; 

OUTTABLEl  (TCI  ♦  3)  •  •0*; 

GUTTABLE1(TC1  ♦  4)  ■  •  T  •  ; 

OU 1  TABLE  1  (TC 1  ♦  5)  •  2FH  ; 

/•  */ 

HSGCOUAT  1  (HAITI  AG 1)  •  HSGCOUMT  (HAITIAG)  ; 

TCI  •  TCI  ♦  HSGCOUAT  (HAITIAG)  ; 

POLUTAbLESmfLAG  -  0; 


0 1632000 
01633000 
01634000 
0  16  35000 
01636000 
01637000 
01638000 
01639000 
01640000 
01641000 
01642000 
01643000 
01644000 
0164S000 
01646000 
01647000 
0  1648000 
01649000 
0  1650000 
0  16  5  1000 
0 1652000 
01653000 
01654000 
01655000 
01656000 
01657000 
01658000 
01659000 
01660000 
0166  1000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01678000 
01679000 
01660000 
01681000 
01682000 
01683000 
01684000 
01685000 
01686000 
01667000 
01688000 
01689000 
01690000 
01691000 
01692000 
01693000 
01694000 
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GC  1C  COflSU  PLGAD  1 ; 

/**/ 

/♦  POLL  TABLE  SETUP  ♦/ 

/••/ 

/•♦/ 

/•  GET  l  C  I  DATA  ♦/ 

/**✓ 

/••/ 

*0LL1 AbLEBUlLC 1 :  If  NUHSPCI  -  0  THEN  GO  TO  RPOLLBU ILC  1  ; 

N  »  4#au r.i  PCI ; 
to  1  »  1  TO  H; 

POLLTAbLE  1  (I)  *  PCI  SSTORE  (I)  ; 

INC; 

/•V 

✓  •V 

/♦  GET  h  t  I  DATA  V 

/••✓ 

/•V 

KPOLLBUILD1;  IF  NUHSNCI  *  0  THEN  GO  TO  NPOLLBL1LD1; 

N  «  4  *NU  Tf  NCI  ; 

POLLPOIN  TEN  1  »  4  #  NUfliPCI ; 

CO  I  •  1  TC  N; 

POLLTAbLE  1  (POLLFOlNTERI  ♦  I)  *  PCISSTURE(I)  ; 

END; 

/♦♦/ 

/**/ 

/*  GET  NCI  DATA  */ 

/••/ 

/*♦/ 

NPOLLbUI LD  1  :  IF  NUfllNCI  •  0  THEN  GO  TO  GPOLLBU 1 LD 1  ; 

N  «  4*NU«S NCI ; 

FO  LLPOINTE  H  1  ■  4  4  (NUflSPCI  ♦  NUMSBCI)  ; 

DO  1  -  1  TC  N  ; 

P0LL1ABLE1(  POLLPOINTERI  ♦  I  )  *  NCISSTOP  E (I )  ; 

END; 

/**/ 

/♦V 

/•  GET  GC I  CATA  V 

/•*/ 

/♦V 

GPOLLbUILD  1:  If  NUHSGCI  *  0  THEN  GC  TO  PO LLT Ab LEDU SP i ; 

N  ■  4*NUft$GCl; 

FO  LL  POINT  Eft  1  •  4  *  (NUflSPCI  ♦  HUflSRCI  ♦  NUdiNCI); 

DO  I  «  1  TO  N; 

FOLLTAbLEI  (POLLPOINTERI  ♦  I)  ■  GCISSTGR  E  (I)  ; 

END; 

GO  TC  POLLTABLEDURP2 ; 

/••/ 

/*♦/ 

/*  OUTPUT  •/ 

/*♦/ 

OFGLHOI:  I!  DELAY  1  *  1  THEN  GO  TO  CEL A Y $ ROU TI N E  1  ; 

IF  NAITINC1  <■  0  THEN  GO  10  IP0LL1; 

If  TCI  >  0  THEN  GO  TO  EOF TEST  1 ; 

ELSE  GO  TO  IPOill; 

LOdlESTl:  If  OUTCOUN  T 1  <  HSGCOUNTI(I)  THEN  GO  TO  SP ACET  EST  1 ; 

ELSE  DELAY!  -  1; 

SPACETESI1:  SPACE!  -  INPUT 10  5SDA  I A  XOR  Of  FH ; 

SPACE!  -  SPACE!  AND  G2H; 

If  SPACE!  -  02 H  THEN  GO  TO  OUTCHAR!; 

ELSE  DELAY!  •  0; 


01695000 
0  1696000 
0 1697000 
01698000 
01699000 
01700000 
01701000 
01702000 
01703000 
01704000 
0  1  705000 
01706000 
01707000 
01708000 
01709000 
01710000 
017  1  1000 
01712000 
01713000 
01714000 
01715000 
01716000 
01717000 
01718000 
01719000 
01720000 
0172  1000 
01722000 
01723000 
01724000 
0  1 72S000 
01726000 
01727000 
01728000 
01729000 
01730000 
01731000 
01732000 
01733000 
01734000 
0173S000 
01736000 
01737000 
01738000 
01739000 
01740000 
0174  1000 
01742000 
01743000 
01744000 
01745000 
01746000 
01747000 
01748000 
01749000 
0  1  7S0000 
01751000 
01752000 
01753000 
01754000 
0 1 755000 
01756000 
01757000 


GO  TO  IbOllI; 

01758000 

/♦V 

01759000 

/•V 

0 1780000 

/*  DE1AY  ROUTINES  •/ 

017b  1000 

/**/ 

01762000 

/•V 

01763000 

DE  EA  Y  {ROUTINE  1 :  CLK1  -  INPUT<230); 

01764000 

CLK  1  *  CLK1  AMD  01H; 

01765000 

IT  CLM  *  CLKP1  THEN  GO  TO  IPGL11; 

01766000 

CLKCAT1  •  CLKCNT1  ♦  1; 

01767000 

CLKP 1  ■  CLK 1 ; 

01760000 

IF  CLKCNT1  <  bUFFERSDELAY 1  THIN  GO 

TO 

IPOL11; 

01769000 

OUTPUT  (2  3S)  -  0 6 H ; 

01770000 

if  TLRSFLAG  <>  M'  THEN  GO  TO  N 0 N $ TDHS D t L A Y  1  ; 

01771000 

TDRlDELA YiRCUTIKE  1:  C  LK  3  *  INPUT  (23  G)  ; 

01772000 

CLK3  *  C I A  3  AND  01H; 

01773000 

if  C  L  K  3  «  C  i  HP  3  THEN  CO  TO  lFCi.il; 

0 1774000 

CLKCN1J  -  CIKCNT3  ♦  1; 

01775000 

CLKP 3  *  C 1 K  3 ; 

01776000 

IF  C  L  E  C  N  T  3  <  SLOTSGU ARD$TI RE  THEN 

GO 

TO 

1POLL1  ; 

01777000 

LEU  Y  1  -  0  ; 

01778000 

Line  NT  1  *  0  ; 

01779000 

cue  M2  ■  0; 

01780000 

CLKCNT3  *  0; 

0  17b  1000 

GO  TO  IPCLL1; 

01782000 

NONJ TCRJ LE LAY  1 1  CLK2  ■  INPUT  (230); 

01783000 

CLK2  «  C  LK  2  ANC  0  lh  ; 

01784000 

11  C  LK  2  *  CLKP2  THEN  GO  To  IPOLL1; 

01785000 

CLKCMi  •  CLKCNT2  ♦  1; 

01786000 

0  I H  F  2  *  CLH2; 

01787000 

II  CEKCNT*  <.  KCNJTDftJftSCJ  LILA  Y  1 

THEN 

GO 

TO  I F OLL 1 ; 

01768000 

I  >  CC  *  C  THEN  DELAY  1  -  GH ; 

01769000 

LLSI  DELAY  1  *  0  1  h  ; 

01790000 

11  NONiTCnSR  SCiDELAY  1  <=  JCH  THEN 

GO 

TO 

HXSbUSYSOVEFRIDE 1 ; 

0  179  1000 

C  LKCNT  1  «  0 ; 

01792000 

CLKCNT2  ■  0; 

01793000 

CUCMJ  -  0 ; 

01794000 

GO  TO  IFOLL 1 ; 

01795000 

/**/ 

01796000 

/*•/ 

01797000 

HXlfcUSYlOV LKrflDE  1;  DELAY  1  *  0; 

01798000 

DO  CASE  FOllSELAG; 

01799000 

NONATCRiftSGfDELA Y 1  «  0; 

01600000 

NONSTDftSft  SGSDELAY  1  *  30  h ; 

01801000 

E  NL  ; 

01602000 

C  LKCNT  1  *  C ; 

0 1 8C  3000 

C LKCNT 2  •  0; 

01604000 

CLKCNT3  «  C; 

01605000 

GO  TO  IFOELl; 

01806000 

/*•/ 

0  1807000 

/*♦/ 

01608000 

OUTCHAH:  OUTPUT  (235)  *  09H; 

01809000 

OUT fUT  101  1LATA  -  OUT T A b LE  1  (OUTC C U N T 1 )  AON 

0  FFh ; 

01610000 

GO  1C  C  U  M  1  *  OUTCCUNT  1  ♦  1; 

01611000 

SHIFT  DC nN  1  :  II  OUTCCUNT1  <■  ftSGCCUMl(l) 

THEN 

GO 

TO  IPOLLl; 

016  12000 

USE  DC  Jl  *  OUTCCUNT  1  TO  TC  1 ; 

01613000 

OUTTAtLEI  (  11  ♦!  -  OU  TCOU  NT  1)  -  OUTTAdLE  1  (I  1) 

• 

01614000 

END; 

01615000 

toil*  1TC  NAITING1 ; 

01616000 

flSGCCUNT  1  (1  1)  -  flSCC0UNT1(I1  ♦  1  ); 

01617000 

ENL; 

01616000 

TC  1  ■  1C  1  -  (  OUICOUNT  1  -  1  )  ; 

01619000 

ft  S  CC  0  U  NT  1  (NAITlNGl)  *  U ; 

01620000 
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WAITINC1  «  WAITI 
OUTCOUNT  1  «  1; 

NG  i  -  1  ; 

0162  1000 
01622000 

II  WAITINGI  =  0 
00  TO  1FGLL1; 

THEN  TCI  *  0; 

01623000 

01624000 

OUJT;  OUTPUT  (2) 

-  CC; 

0 1625000 

OUTPUT  (I) 

-  CC  1 ; 

01626000 

OUTPUT  (2) 

*  MSGCOUNT  (1)  ; 

01627000 

OUTPUT  (2) 

■  nsGCoum  Ml); 

01628000 

OUTPUT  (2) 

■  TC; 

01629000 

OUTPUT  (2) 

*  TCI; 

01630000 

OUTPUT  (2) 

-  OUTCGUNT; 

01631000 

OUTPUT  (2) 

•  0UTC0UHT1; 

01832000 

OUTPUT  (2) 

*  WAITING; 

01633000 

OUTPUT  (2) 

«  WAITING  1 ; 

01634000 

OUTPUT  (2) 

«  NUPSFCI; 

01835000 

OUTPUT  (2) 

*  NUWfhCI; 

01636000 

OUTPUT  (2) 

■  NUP.JNCI; 

01837000 

OUTPUT  (2) 

*  NUPSGCI; 

01638000 

OUTPUT  (2) 
EOf 

-  PT1C0UNT1; 

01839000 

01840000 
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GLOSSARY 


AFSATCOM 

Air  Force  Satellite  Communications 

AFSC 

Air  Force  Systems  Command 

ASR 

automatic  send  receive 

BCD 

binary  coded  decimal 

b/s 

bits  per  second 

CINC 

Commander-in-Chief 

CMOS 

complementary  metal-oxide  semiconductor 

COMSUP 

communications  supervisory 

CP 

command  post 

CPU 

central  processing  unit 

CRT 

cathode  ray  tube 

EAM 

emergency  action  message 

EDAC 

error  detection  and  correction 

EPROM 

eraseable  programmable  read-only  memory 

ESD 

Electronic  Systems  Division 

FLTSATCOM 

Fleet  Satellite  Communications 

FSA 

free  storage  area 

FSK 

frequency  shift  keying 

IC 

integrated  circuit 

I/O 

input/output 

ISA 

instruction  storage  area 

LSI 

large  scale  integration 
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GLOSSARY  (Continued) 


MI 

message  indicator 

MPU 

message  processor  unit 

NB 

narrowband 

NCA 

National  Command  Authority 

NCS 

net  control  station 

OW 

orderwire 

PROM 

programmable  read-only  memory 

R/T 

receiver/ transmit ter 

RX 

receive 

SBC 

single  board  computer 

SDS 

Satellite  Data  System 

SIOP 

Single  Integrated  Operations  Plan 

SSDA 

synchronous  serial  data  adapter 

TDM 

time  division  multiplex 

TTL 

transistor-transistor  logic 

TX 

transmit 

UHF 

ultra  high  frequency 

VSA 

variable  storage  area 

VB 

wideband 

WVABNCP 

Worldwide  Airborne  Command  Post 
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